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ABSTRACT 


« 


As an augmentation to field training, the author identifies a need for 
an easily available light infantry platoon combat model that presents a 
r ealistic view of the battlefield environment. To meet this need, the author 
examines the feasibility of developing a realistic three dimensional display 
of a terrain representation on a personal computer. The target computer 
provides only limited graphics support with an Enhanced Graphics Adapter 
and all graphics routines are implemented in software. Three methods of 
terrain representation are examined, and the Dynamic Tactical Simulation 
(DYNTACS) terrain model is chosen for implementation. The DYNTACS 
representation uses a specialized triangle drawing procedure written in 
assembly language, the painter's algorithm for hidden surface removal, and 
Defense Mapping Agency Digital Terrain Elevation Data. The implementation 
obtains a display rate between 1.2 and 1.5 seconds on a 80386 based 25 
MHz computer. The author concludes that with the addition of 
enhancements that provide the capability to display cultural features, and 
model the target acquisition process, the program could be developed into 
a light infantry platoon combat model or a research tool for examining 
effects of human factors effects on tactical decision making. 
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I. INTRODUCTION 


The purpose of this thesis is to develop a three dimensional display 
of a terrain model on a personal computer. Such a model can be utilised 
as a component of a light infantry platoon combat model for training 
platoon leaders or as a tool for conducting experiments to measure human 
factors effects on Command and Control (C^) decisions. Before discussing 
the development of the terrain model, some background material is 
necessary and is presented in this chapter. 

A. BACKGROUND 

The U. S. Army has identified five strategic roles for itself, one of 
which is to maintain contingency forces for immediate combat worldwide 
across the spectrum of conflict [Ref l:p. 6]. In order to prepare units for 
this role, not to mention as a deterrent to war, the Army conducts 
deployments to many countries (e.g., Thailand, South Korea, West Germany, 
Honduras, etc.). These deployments provide training experiences that 
cannot be gained in the United States and are thus necessary to insure 
the Army is capable of performing its wartime missions. 

To insure a trained and ready force, the U. S. Army has identified 
several fundamental imperatives. Two of these imperatives are of interest 
in this thesis: conduct tough and realistic training and develop competent, 
confident leaders [Ref. 2:p. II-5]. In order to develop competent, confident 
leaders, the Army advocates leader training and unit training. Leader 
training insures a technically competent leader, while unit training assists 
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in developing leaders who are confident in executing their function. In 
order to conduct realistic training, the Army uses field training exercises 
that are planned and conducted as realistically as possible within safety 
constraints. The most realistic peacetime training available to the Army 
occurs at Combat Training Centers (CTC). These centers and their roles 
are: 

• The National Training Center (NTC) — provide realistic combat 
training for Battalion and Brigades in mid to high intensity scenarios. 

• The Joint Readiness Training Center (JRTC) — provide realistic combat 
training for non-mechanized battalion task forces in low to mid 
intensity scenarios. 

• The Combat Maneuver Training Center (CMTC) — provide a NTC type 
experience for units in the Federal Republic of Germany. 

• Battle Command Training Program (BCTP) — provide realistic combat 
training for Corps and Division commanders and their staff. [Ref. 2:pp. 
VI-1 - VI-2] 

These centers provide for realistic training to units that participate, 
but no matter how realistic the training, several ingredients are missing 
that are present in combat. Firstly, in combat people die. In training, 
except for training accidents, people do not really die. Secondly, because 
people do not get killed, the psychological stresses and fears do not 
manifest themselves the same way they do in combat. Thirdly, due to 
resource limitations, the representation of the battlefield environment is 
limited. The terrain and the enemy are limited to that of the training 
center. There is not a significant number of noncombatants represented 
at these training centers as they are present on the battlefield. For 
example, consider how many civilians were in Panama during Operation Just 
Cause. The units involved in that operation had to deal with Panamanian 
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civilians in addition to the Panamanian Defense Force. U. S. forces were 
prepared for combat, however results indicate they were not prepared for 
the Panamanian civilians and the impact they would have on operations 
(e.g., looting, firing on noncombatants, etc.). The absence of these 
ingredients in unit field training results in a semi-sterile environment that 
does not completely represent the environment of the battlefield. 

One solution to this deficiency in training is to increase the amount 
of resources involved in the training exercise (Le., make additional soldiers 
play the role of noncombatants and build more training facilities). Given 
the trend in today's defense budget discussions in Congress, this may not 
be a feasible alternative. Another solution would be to make use of 
available resources, such as personal computers, and develop a computer 
simulation to round out the experience of unit leaders. In order to 
develop such a simulation, it must first be determined if a realistic terrain 
display can be developed for a computer with limited capability. 


B. SUMMARY OF SUBSEQUENT CHAPTERS 

The remainder of this thesis discusses the development of a three 
dimensional display of a terrain model on a personal computer. It consists 
of five more chapters that address the following: 


• Chapter II addresses three areas. Firstly, it translates the need for 
training in a realistic battlefield environment into a need for a combat 
model which is in turn translated into a need for a realistic terrain 
display. Secondly, it discusses some design considerations and why 
they were chosen. Thirdly, it address the requirements that are 
derived from the need and the design considerations. 

• Chapter III addresses terrain modeling methodology in four areas. 
Firstly, it discusses the selection of a terrain representation. 
Secondly, it discusses the Line of Sight calculations for the selected 
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representation. Thirdly, it discusses movement modeling on the 
selected representation. Lastly, it discusses detection modeling in the 
battlefield environment. 

• Chapter IV discusses the display program that was developed in order 
to implement the three dimensional display of the selected terrain 
representation. It provides an overview of the program and 
addresses some of the implementation issues and resulting algorithms 
that solved some of the problems. 

• Chapter V discusses enhancements to the program for the displaying 
of the terrain model that will fully implement the areas discussed in 
Chapter II that have not been implemented. 

• Chapter VI provides conclusions that are obtained from implementation 
of the terrain model. 
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n. THE HEED AHD THE REQUIREMENTS 


A. THE NEED 

The last chapter addressed the lack of a complete representation of 
the combat environment in training. Even though it is not possible to 
entirely replicate the battlefield environment for training, it is possible to 
simulate some of its qualities through computer simulation. A computer 
simulation could theoretically simulate the battlefield environment more 
robustly than in training exercises. A simulation can use different terrain 
by changing its database. The enemy can also be changed in the same 
manner. Computer representations of civilians can be integrated into the 
simulation to provide a more realistic battlefield. Such a simulation could 
be a surrogate for experience and augment a leader's understanding of the 
battlefield in conjunction with the CTC. 

The Army currently has a Family of Simulations (FAMSIM) that 

develops and sustains skills for commanders and their staffs at Battalion 

level and higher [Ref. 2:p. VI-4]. One problem with these types of 

simulations is the modeling of the information flow. They do not 

adequately model bad information and the impact it has on decisions. One 

solution to exposing leaders to the problems of dealing with bad 

information is to improve the quality and quantity of battle simulations for 

commanders and leaders at all levels [Ref. 3:p. 52]. Smith states: 

The only real way to learn at the tactical level is to practice 
continually in a brutal environment, make mistakes (which often mean 
getting you ego bruised), get good counsel, and get back in the ring 
for another go. We can no longer afford to teach leaders the critical 
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art of fighting with poor information during one or two high 
reputation events a year. They must be repeatedly immersed in a 
learning environment (like the combat training centers at Fort Irwin 
and Hohenfels or BABAS ... exercises) and be allowed to make mistakes 
without a reputation cost [Ref. 3:p. S3]. 

A realistic combat simulation that incorporates the modeling of bad 

information flow would meet this need. 

As mentioned, the Army has simulations that are structured toward the 

battalion level and above. According to the Operations Field Manual 100-5, 

... modern combat requires greater dispersal of units, the quality and 
effectiveness of junior leaders has a proportionately greater impact. 
Prior to combat, senior leaders must place greater emphasis on junior 
leader development [Ref. 4:p. 26]. 

One way to place greater emphasis on junior leader development is to 
develop a simulation to support the training of leaders at the company 
level and below. Use of a realistic simulation at those levels could augment 
a leader's experiences from training. Since developing such a simulation 
is a complex task, to reduce some complexity its development can start at 
a mid-level such as platoon level. Units that have the contingency mission 
to deploy anywhere in the world are the airborne, ranger and light 
infantry units. Thus, a simulation for a light infantry type unit seems 
most appropriate. 

Two ingredients are paramount in a simulation for the light infantry 
platoon: a desire to realistically represent the information flow and to 
realistically portray the battlefield environment to the user of the 
simulation. Information flow is actually a subcomponent of a command and 
control system in terms of reports and orders. 
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1. Command and Control - The Unifying Thread 


Organizations consist of people, procedures and equipment. The 
people use the equipment and procedures to accomplish a mission. The 
ingredient that integrates these into an organization and prevents chaos 
is command and control: the bonding that holds the organization together 
on the battlefield. A better understanding of this concept is obtained from 
the author's modified form of Lawson's Command and Control Process Model 
in Figure 1 [Ref. 5:p. 24]. 

Orr introduces and explains Lawson's model in Combat Operations 
C I: Fundamentals and Interactions. The Sense, Process, Compare, Decide, 
and Act (S-P-C-D-A) functions are unchanged from Lawson's model. Two 
modifications have been made. First, the inclusion of higher and lower 
level forces and where they interface with the model is shown. Secondly, 
the dotted box around the S-P-C-D-A labeled "PERSON" is added. All 
external input to the person box occurs through the Sense function. All 
output of the "PERSON" box occurs at the Act function as reports, orders, 
or action on the environment. In this form the model can be used at any 
level to represent command and control as it relates to the individual. 
Depending on what level one examines, the only thing that changes is the 
definition of the lower levels, higher levels, and the environment. This 
model provides a framework for modeling information flow and the Command 
and Control process in the Light Infantry Platoon Combat Model. 

2. Bounding the Problem 

To get a better understanding of the Command and Control (C2) 
process and how it relates to the light infantry platoon, the "onion skin" 
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Figure 1. The Modified Lawson Command and Control Process for 
Individuals 


C2 System Bounding technique introduced by Sweet [Ref. 6:p. 11] is useful. 
Figure 2 shows the "onion skin" as applied to the platoon command and 


control system. Of particular interest are the four boundaries: 


• Outside the platoon force boundary but within the platoon's 
environment boundary are the terrain, weather, adjacent and higher 
friendly units and enemy forces. 
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LGHT INFANTRY PLATOON COMMAND AM) CONTROL SYSTEM BOUNDING 



Figure 2.Bounding the Problem 

• Outside the C2 system boundary but within the force boundary are 
the platoon's organizational forces and their equipment. 

• The C2 system is the platoon command and control system. 

• The squad and platoon headquarters command and control systems are 
subsystems of the platoon command and control system. 

This "onion skin" and the Command and Control Process Model provide an 
understanding of a framework within which to develop the Light Infantry 
Platoon combat model. 

As mentioned, the development of such a combat model is a 
complex task, much beyond the scope of this thesis. In order to develop 
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such a simulation, there is a need to determine the feasibility of developing 
an inexpensive method to display the battlefield environment to the 
potential user: the platoon leader. Specifically, there is a need for a 
realistic display of the terrain and environment of the battlefield. If this 
task can be accomplished, then the feasibility of developing a light 
infantry combat model that can be available to leaders several times a 
month, not just once or twice a year, can become a reality. 

B. THE DESIGN CHOICES 

Two design choices are paramount to the development of a display for 
a light infantry combat model due to the constraints they impose. One is 
the target hardware and the other is the software programming package. 
The target hardware is the microcomputer based on the Intel 8086 family 
of processors. The software package is Turbo Pascal 5.5 Professional 
which consists of Turbo Pascal, Turbo Assembler and Turbo Debugger. 
There are several reasons for these choices. 

• The microcomputer is readily available to most potential users. 

• Numerous references have been written with Pascal as the discussion 
language. 

• There are software libraries for Turbo Pascal code. 

• The software package is inexpensive. Its list price is only $250.00. 

• The computer hardware is inexpensive, especially when compared to 
a graphics workstation. Graphics workstations can cost anywhere 
from $20,000.00 to $100,000. A personal computer only costs $1,000.00 
to $8000.00 depending upon the configuration. 

Before discussing the selection of the terrain representation, a description 
of the hardware and software is in order. 
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1. The Microcomputer 


The microcomputer baaed on the Intel 8086 family of processors 
has been in use since the early 1980's when IBM introduced the first 
personal computer. The Intel 8086 family consists of the 8088, 8086, 80186, 
80286, 80386, and 80486 processors. All are backward compatible to the 
8088 [Ref. 7:p. ix]. 

The operating system most common for these computers is the 
Disk Operating System (DOS). A significant limitation of DOS is the ability 
to address only one megabyte of memory. Of this one megabyte, less than 
640 kilobytes are available for program use. There are ways around that 
barrier, but that topic is beyond the scope of this thesis [Ref. 8:p. 7]. 
There are several graphics adapters available for IBM compatible 
microcomputers. The one of interest in this thesis is the Enhanced 
Graphics Adapter (EGA). With this adapter and a suitable color monitor, 
the microcomputer can display up to 640 horizontal by 350 vertical pixels 
in 16 different colors. With 128 kilobytes of memory installed, the EGA in 
graphics mode can utilize a two page capability. This is useful for 
drawing to one page while displaying the other. Once drawing is 
completed, the pages can be flipped to give an instantaneous change in 
display. This is a technique referred to as page flipping. [Ref. 9:p. 105] 

The majority of graphics cards for the microcomputer rely on the 
microprocessor to perform the necessary calculations for display graphics. 
This setup is quite a limitation when compared to graphics workstations 
which have built in hardware to take some of the load off the main 
processor. Since the EGA does not take any load off the main processor, 
algorithms and code organization are critical to performance. 
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Thus, the two primary concerns about the microcomputer are the 
constraints put on it by EGA graphics card and its operating system. The 
available program memory is limited to less than 640 kilobytes. The 
resolution of display is limited to 640 by 350 pixels in resolution and only 
16 colors can be displayed. 

2. Programming Language Software 

The programming language chosen for this task was Object- 
Oriented Turbo Pascal 5.5. This version of Turbo Pascal provides the use 
of object-oriented programming and a fairly comprehensive graphics unit. 
The graphics unit greatly facilitates the development of a graphics 
intensive program. The use of the object-oriented programming 
methodology will greatly enhance later development of the full combat model 
as soldiers, squads and platoons are defined as objects. 

Turbo Pascal has the capability to link with Turbo Assembler. 
This capability is well documented in references on Turbo Pascal and 
provides the flexibility to use assembly language routines where needed to 
enhance speed of execution. Speed of execution is especially critical in 
graphics operations since slow graphics operations mean a slow display. 

Turbo Pascal has some disadvantages. Code written in Turbo 
Pascal does not transfer to a mainframe computer without having to rewrite 
the code due to incompatibilities of Turbo Pascal with standard Pascal. 
Additionally, Turbo Pascal does not provide a compiler that uses the 32 bit 
capability of the Intel 30386 processor. Even with these disadvantages. 
Turbo Pascal 5.5 provides more capabilities than liabilities. 
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C. REQUIREMENTS OF THE BATTLEFIELD ENVIRONMENT MODEL 

The requirements for simulating the battlefield environment in a high 
resolution model, such as the light infantry combat model, are divided into 
three categories; what the terrain model should theoretically represent, 
requirements imposed by the purpose of the light infantry platoon combat 
model, and the requirements imposed by the constraints of the computer 
system. These categories represent the total requirements of the terrain 
model. 

The three theoretical requirements for simulating the battlefield are 
listed below: 


• The environment model must provide a terrain profile that allows for 
calculation of the existence or nonexistence of Line of Sight (LOS) 
between individual entities on the battlefield. 

• The environment model must provide a representation of the terrain 
surface, vegetation, and man-made features so that concealment from 
observation, cover from direct fire weapons, and mobility can be 
determined. 

• The environment model must provide a representation of the 
atmosphere over the battlefield in terms of light conditions, weather, 
and obscurants such as smoke and fog. 

A model of the battlefield environment that satisfies these three theoretical 

requirements is needed for a high resolution model. [Ref. 10:p. 3-1] 

The intended use of the combat model into which this environment 

model will be integrated identifies two additional requirements. 


• The environment model must provide for rapid creation of different 
environments, thus providing the capability to simulate battlefields 
anywhere in the world. Light Infantry forces need to train for 
world-wide deployment to accomplish their mission. 

• The display of the terrain representation for the environment model 
must provide a realistic display that does not confuse the user, in 
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particular, it should make use of three dimensional graphics and 
present a view as if the user is at that location on the ground. 

These two requirements are important if the model is to enhance experience 
of platoon leaders when used for training. If the model is used as a tool 
for experimentation, the capability to display any situation anywhere in the 
world will provide the researcher with a flexible tool that does not impose 
undue constraints. 

The target computer system imposes several other requirements on the 
environment model in addition to the five already mentioned. 

• The memory requirements of the representation cannot exceed 200 
kilobytes. This will allow approximately 320 kilobytes of memory for 
the combat model program. 

• The complexity of the display must be minimized in order to keep the 
time to draw the terrain on a display in three dimensions to a 
minimum. A draw time over ten seconds is unacceptable. 

These last two requirements become constraints on the design of the model. 

The seven requirements presented provide for a realistic three 

dimensional display of any desired terrain. An implementation that satisfies 

these requirements will provide the capabilities needed for the purpose of 

the light infantry combat model. The diffic ult task is transforming these 

requirements into a usable product. The next chapter addresses the 

selection of a terrain representation and its capabilities that makes this 

transformation possible. 
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m. TERRAIN MODELING METHODOLOGY 

A. SELECTION OF A TERRAIN REPRESENTATION 

The method of representing terrain has a significant impact on the 
capabilities of any combat model. It affects the ability to determine 
geometric line of sight between two entities on the battlefield. Also, since 
the computer will have to make line of sight calculations between all 
entities on the battlefield at specified intervals, the speed with which the 
computer can accomplish this calculation becomes critical. Finally, since 
the requirement is to present the terrain in three dimensional graphics, 
the method chosen will affect display time. On the microcomputer, longer 
display draw times imply more load on the microprocessor in order to 
accomplish display calculations instead of battle calculations. The end 
result is a slower running simulation. 

Due to the requirement to display the terrain in three dimensional 
graphics, the choice of accepted methods of terrain representation is 
narrowed to what is known as surface terrain models. A surface model is 
one that represents the surface of the terrain in such a way that it 
approximates the true continuous appearance of the terrain. This 
representation is sometimes referred to as macro terrain. Macro terrain 
refers to capturing the major detail of the terrain, such as a hill, but not 
features such as forest, vegetation, and small boulders. A picture of an 
ideal surface model representation is at Figure 3. Note how this 
representation captures the attributes of the appearance of terrain. 
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Figure 3. Surface Model of Terrain 


There are three methods for representing terrain that approximate 
Figure 3. The three methods are utilized in the Dynamic Tactical 
Simulation (DYNTACS), the Individual Unit Action (IUA), and the Simulation 
of Tactical Alternative Responses (STAR) combat models [Ref. 10:pp. 3-8 - 
3-9]. Each of these representations are possible candidates for the model. 

1. The DYNTACS Terrain Model 

The first candidate to represent the macro terrain is that used 
by DYNTACS. It takes as input the elevation of points that are uniformly 
spaced at a specified interval. These points are grouped to form squares. 
Each square is divided into two triangles with a diagonal going from the 
upper left corner to the lower right corner. This methodology is depicted 
in Figure 4. 

By breaking the square into two triangles, it is possible to 
represent the square area with two triangular planes, each forming a 
continuous surface. For example, imagine a table with four legs of unequal 











length. One plane (i.e., the floor) will not intersect the bottoms of all four 
legs simultaneously. Now imagine a table with three legs of unequal 
length. No matter what the length of those three legs, a plane will 
intersect the bottoms of all three legs simultaneously. 

With the DYNTACS terrain model, these diagonal lines and all lines 
forming the square are common edges of several triangles. The result is 
a representation that has facets similar to a cut diamond. It is 
characterized by discontinuities at the edges. Theoretically, if one makes 
the triangles small enough, these changes may not be noticeable to the 
naked eye. 

In this representation, the coordinates of the three vertices of 
the triangle are known. Since the triangle is actually a planar surface 
when viewed in three dimensions, the elevation of an object located 
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anywhere on that surface is easily determined using formulas of plane 
geometry. To determine line of sight between two entities, again geometry 
is used to determine if a line from the observer to the target intersects 
any of the triangular surfaces between them. The algorithms for this 
procedure are clearly documented in The Tank Weapon System. [Ref. ll:pp 
57-86] 

There are several advantages to the DYNTACS terrain model. 
First, the model provides the capability to utilize Digital Terrain Elevation 
Data (DTED) from the Defense Mapping Agency (DMA). DMA produces two 
levels of DTED, referred to as Level One and Level Two. Both express 
elevations in meters. A data file of DTED provides the elevations of a 
matrix of uniformly spaced points. Level One DTED has an approximate 
spacing of 100 meters. Level Two DTED has an approximate spacing of 30 
meters. The DTED format conforms exactly to the requirements for 
elevation data in the DYNTACS terrain model and provides a rapid 
capability to generate different battlefields. [Ref. 12:p. 1] 

A second advantage of the DYNTACS model is the requirements for 
memory storage are reduced. As long as the location of the lower left 
corner and the interval between elevation points are stored as constants, 
then only the elevation data need to be stored in a matrix. There is no 
requirement to store a three dimensional coordinate for each elevation 
point. For a large terrain database, this capability greatly reduces the 
storage requirements. Most models store the data this way, as does DMA 
on its DTED files. [Ref. ll:pp. 58-61] 
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A final advantage of the DYNTACS terrain model is that the three 
dimensional displaying of polygons is well documented. Any reference on 
three dimensional graphics addresses this subject. The ability to find 
such documentation is important when it comes to implementing the method. 

The DYNTACS terrain model does have a major disadvantage. It 
does not take advantage of terrain that may be uniform over a large 
expanse. Consider a piece of terrain that is relatively flat for several 
kilometers. Such a piece could easily be represented by only two triangles 
if unequal spacing of points is allowed. Instead the DYNTACS terrain model 
will represent this piece of terrain with several hundred triangles. 

2. The IOA Terrain Model 

A second alternative to representing the macro terrain is the IUA 
terrain model. Similar to DYNTACS, the IUA terrain model represents 
terrain as triangular surfaces. Instead of uniform spacing, however, the 
IUA method utilizes nonuniform spacing. The modeler places the vertices 
wherever he desires to represent the shape of the terrain. Calculating 
LOS with this model is similar to DYNTACS with one exception. The 
calculations are more involved because a determination has to be made as 
to which triangle the entity occupies, since the spacing of points is not 
uniform. [Ref. 10:p. 3-9] 

Thus, the IUA model offers the major advantage of making use of 
only those data points necessary to represent the terrain. In locations 
where the number of data points required to represent the terrain is small, 
the drawing of the display will be quick. A variant of this representation 
is what Lee Adams advocates in building a flight simulator for a 
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microcomputer [Ref. 13:pp. 243-280]. In that variant, any polygonal shape 
may be used. From this author's examination of several microcomputer 
' games that have three dimensional terrain graphics, it appears to be the 
method used by them. 

There are several disadvantages to this model. First, the ability 
to incorporate DMA DTED is limited. Without developing a program that can 
convert DTED to a format for this representation, DTED is of no use. That 
means that someone has to create the data points for a given piece of 
terrain. This disadvantage would significantly affect the ability to rapidly 
develop different scenarios. Another problem, already discussed, was the 
amount of computation required to determine what triangle the entity 
occupies. In a similar fashion, LOS calculations would become difficult as 
a search would be required to determine which triangles are between the 
observer and target. These disadvantages are significant. 

3. The STAR Terrain Model 

The third alternative for representing macro terrain is the 
representation used by the STAR combat model. The STAR terrain model 
is parametric in nature. Instead of using stored digital data for 
elevations, the STAR model uses a slightly altered bivariate normal 
probability density function to represent a hill mass. Several of these 
equations together can represent a battlefield. To represent a piece of 
real terrain it is necessary to fit these parametric equations to a contour 
map. [Ref. 14:p. 7] 

The advantage of this representation is that it reduces the 
amount of storage required to represent terrain. For a ten kilometer by 
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DYNTACS terrain model is the model of choice for representing the macro 
terrain. 

5. Simulating the Micro Terrain 

The DTED does not provide high enough resolution to capture the 
small folds in the terrain. The macro terrain is represented by planes 
with smooth surfaces. In order to simulate the micro environment, an 
additional technique is needed. Placing a soldier in a deliberate prepared 
position is relatively easy; simply change his height. The real issue is a 
method of representing the somewhat random folds in terrain a soldier or 
vehicle on the move would be able to find when engaged by an enemy 
force. 

Documentation on the STAR terrain model does not address this 
issue, but the DYNTACS terrain model does. In the DYNTACS model a 
random adjustment is made to an object's elevation based on a Monte Carlo 
process. This adjustment can be a positive or negative adjustment. In 
order to accomplish this procedure, a normal probability distribution is 
used. The variance for this distribution is determined from a table of 
predictions that are output from a separate model: the Environmental 
Model. A similar technique is appropriate for the terrain model being 
developed. [Ref. ll:pp. 73-76] 

6. Representing Forest and Other Terrain Features 

There are three methods of representing forest and other terrain 
features such as man-made objects: 

• Account for all trees and man-made objects individually. 
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• Assign s code to each triangle that indicates the type of feature, its 
height, and effect on line of sight. This is similar to the technique 
used on a hex grid terrain model. 

• Represent forest and built up areas by a geometric shape, such as an 
ellipse, that is fitted to terrain areas as appropriate. The DYNTACS 
and STAR terrain models use this technique. 

Accounting for all features on the battlefield is not an option on 
a microcomputer unless the number of trees and man-made objects is small. 
The memory requirements for any substantial number of objects would be 
prohibitive. Since the model is to be used to represent various locations 
in the world, some locations will have numerous objects. Thus, this 
technique can be eliminated. 

The remaining two choices are possible solutions for the 
microcomputer environment. The assignment of a code to each triangle 
would not only allow the addition of the feature height to the surface 
height when calculating LOS, but it would also allow for the ability to draw 
the features in that triangle when it is displayed. The other option, using 
geometric shapes, is feasible, but would be more difficult to implement in 
terms of drawing the features. This difficulty becomes more evident when 
one examines the mechanics of displaying the terrain. This topic is 
addressed in Chapter V. 

Once a method is decided upon, there is still the question of the 
data source for the forests and man-made objects. One option is to use 
maps of the area of interest. Another option is to use DMA Digital Feature 
Analysis Data (DFAD). Similar to DTED, DMA produces two levels of DFAD 
data: Level One and Level Two. Level One DFAD approximates the density 
of 1:200,000 scale cartographic products. Level Two DFAD approximates the 
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density of a 1:50,000 scale cartographic product. Again, due to the 
microcomputer memory constraints, use of DPAD may be prohibitive. These 
are alternatives that need further examination beyond the scope of this 
thesis. [Ref. 15:pp. 1*2] 

B. LIKE OF SIGHT CALCULATIONS FOR THE DYNTACS TERRAIN MODEL 

Since the DYNTACS terrain model is the model of choice for 
representing the macro terrain, it is appropriate to explain the calculation 
of LOS. In order to calculate LOS, the elevation of the observer and the 
target have to be determined. Once this information is determined, a check 
is made to see if the observer has geometric LOS to the target. 

1. Determining Elevation at a Location on the Terrain Model 

Calculation of the elevation for a point on the surface of the 
terrain is relatively easy if the data are stored in the correct format. 
This format involves arranging the elevation data into an array. In order 
to cut down on calculations, the elevation data should be divided by the 
interval between the elevation points before storing in the array. This 
scaling allows the indexes in the array and the data to be on the same 
scale. 

To illustrate this scaling and the elevation routine, a step by step 
example is given. This example will be kept simple and will use only a 
two-by-two array shown in Table I. The coordinate system used in Table 
I is the left-handed coordinate system. To visualize this coordinate 
system, imagine you are facing North. If you are standing at the origin, 
the positive z axis is straight ahead to the North. To your right, or the 
East, is the positive x direction. Straight up is the positive y axis. It is 
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the z coordinate that adds the third dimension or depth. This is the world 
coordinate system that will be used throughout this thesis. Finally, notice 
that the x and z interval between data points in Table I is 100 meters. 
TABLE I. ELEVATION DATA FOR EXAMPLE 


DATA 
POINT NO. 

X 

COORDINATE 

(METERS) 

Z 

COORDINATE 

(METERS) 

Y 

ELEVATION 

(METERS) 

1 

0 

0 

130 

2 

0 

100 

140 

3 

100 

0 

135 

4 

100 

100 

120 


If the data in Table I are organized into an array structure, some 
of the data stored can be eliminated since the points are uniformly spaced. 
An array that has the same information is at Table II. Notice that the only 
data stored in the array are the elevation data which have been scaled by 
dividing by 100. The i index corresponds to the x coordinate divided by 
100. The j index corresponds to the z coordinate divided by 100. Table 
II provides the same information as Table I, but requires less memory for 
storage. The only data stored are the elevation data. The location in the 
array provides the other two coordinates. Using this technique, the 
memory storage requirements are reduced by two-thirds of the requirement 
for Table I. 

The method of data presentation in Table II is the same as if the 
points were arranged on the ground and the reader was above the ground 
looking down at the points. The top of the paper is North. Using the 
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TABLE n. ELEVATION DATA ARRANGED IN AN ARRAY 


mm 




i*0 




jfcit;: 


1.40 


1.20 




1.30 


1.35 


DYNTACS methodology/ the two by two array would only represent one 
square divided into two triangles. Assuming the bottom left corner of this 
square is referred to as (i/j), the lower triangle would consists of (i,j), 
(i,j+l), and (i+l,j). The upper triangle would be formed with the triple 
(i+l/j+1), (i,j+l), and (i+l,j). Substituting i=0 and j=0 into the above triples 
gives the correct indices into the array for the appropriate triangles. 

Continuing the example, assume that an observer is located at 
world coordinates x = 0.02 and z = 0.02 and a target is located at x = 0.8 
and z = 0.8. Target and observer heights are both 0.018. These world 
coordinates and heights are in hundreds of meters, the same scaling as the 
array. Does a LOS exist? To answer this question, first, one must 
determine the elevations at the locations of the target and the observer. 
The steps to determining the elevation are: 

• Determine the triangle, either the upper or lower, in which the 
observer or target is located by using equation 1 below. 

• If the entity is in the lower triangle use equation 2A below. 

• If the entity is in the upper triangle use equation 2B below. [Ref. 
11:63] 

Equation 1 is a condition statement. It is 
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V OwO > (i+/+l) observer is on upper triangle 
else observer is on lower triangle 


The values for i and j are easily determined by truncating the fractional 
portion of the x and s location of the observer. The remaining integers 
are the indices. Equation 2A is 

+ * /♦i“3ki f y*i) + 0 + * >*i) 


Equation 2B is 


yu+<*+- t Hy,. l ,ry l ,p+(y«,-JXy l ,j. i -yrf 


In these equations, the y values are the elevation for a location 
identified by the subscript. The subscripts i and j are indices into the 
array table. To determine the elevation of the target, wherever the 
formula uses observer information, use target information. 

Continuing with the example, using equation 1 reveals that the 
observer is in the lower triangle ((.2+.2) is less than (0+0+1)). Since the 
observer is in the lower triangle, the ground elevation at his location is 

1.30 ♦ (02 - 0X1.35 - 1.3) ♦ (02 - 0X1.4 - 1.3) - 1.33 

Using the same procedure, the target is determined to be in the upper 
triangle and its ground elevation is 1.27. 
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The next step is to edd the respective heights of the target and 
observer to their ground elevations. If micro terrain effects are to be 
included, then this positive or negative value must be added also. For 
this example, micro terrain effects trill not be included. Therefore, the 
determined elevations of the top of the observer and target are: 

E iev tym¥ttt - 1.33 ♦ 0.18 - 1.51 
Etev tfm¥m - 1.27 ♦ 0.18 - 1.45 

2. Line of Sight Routine 

In the last section, determination of the elevations of a target and 
observer were illustrated. In order to determine if geometric LOS exist 
between an observer and a target, two additional procedures are required. 
First, the model needs a procedure to determine where a top down 
projection of the LOS onto the terrain model intersects the edges of the 
triangular planes. 

Figure 5 presents two views of a situation for determining LOS 
between an observer and two targets. The side view shows that the LOS 
exists to target one but not to target two. From the top-down view this 
is not obvious. What is depicted in the top-down view are the 
intersections of the LOS projection onto the edges of the triangular planes. 
The DYNTACS model refers to these edges as "plane departure points." It 
is at the plane departure paints that the maximum and minimum elevations 
occur. If the elevations of the entry and exit points of the plane are less 
than the elevation of the LOS line at those points (see side views), then 
any point between the entry and exit point is below the LOS line. In 
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other words, all the model needs to check are the plane departure points 
between the observer and target. If all of these are below the LOS line, 
geometric LOS exists. Therefore, the model needs a procedure to determine 
the plane departure points between the observer and the target. [Ref. ll:p. 
78] 



Top Down View 

Tat 1 



Side View Tgt 1 Side View Tgt 2 

Figure 5. Line of Sight From Observer to Targets 


Once the model determines the plane departure points, it requires 
a second procedure to determine if LOS exist. The procedure needs to 
check each plane departure point's elevation against the elevation of the 
LOS line at the same x and z location. Before doing this, if the triangle 
has been coded as having vegetation, then the vegetation height must be 
added to the elevation of the plane departure paint. The results will 
inform the model only that LOS exists or does not exist. To determine if 
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only a portion of the target is visible, the model can do a second check 
where the height of the target is only half of its normal height. If LOS 
does not exist to the target midpoint, then the target is only partially 
visible. If LOS exist to the midpoint, the model assumes a completely 
exposed target. Due to the length of the procedures to determine the 
plane departure points and to check LOS, their algorithms are enclosed in 
Appendices A and B, respectively. [Ref. ll:p. 83] 

C. MOVEMENT MODELING 

Mobility over the terrain is a function of several variables; the three 
most important being slope of the terrain, soil conditions, and type of 
vegetation. To properly model movement requires the development of a 
functional equation that relates slope, soil conditions, and vegetation. This 
equation should result in a percentage of a maximum movement speed. The 
development of such an equation is beyond the scope of this thesis. 

The determination of the slope on the terrain is provided in an 
equation developed as part of the DYNTACS model [Ref. ll:p. 66]. It solves 
for the angle of the slope using geometric relationships. The equation is 
as follows: 


Slope - M, 2, .. . , n+l; 


where 


•i 


<p» «o)-(w w>; 

(p p q)-plane departure pointer, 

i-1, ...» a; 

r, - elevation at (p p q) 
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With the above equation, the model can easily determine the slope of 
the terrain at any location on the battlefield. Determination of the values 
for soil conditions and vegetation depends on the representation method 
used in the model. The easiest method is coding the triangle with the 
values for vegetation and soil conditions as mentioned earlier. A more 
realistic representation is the use of geometric shapes to map the areas 
with similar vegetation or soil conditions, but the coded triangle method is 
faster for determining what codes apply to a given location. 

D. MODELING TARGET ACQUISITION 

Even though geometric LOS may exist between an observer and a 
target, its existence does not mean the observer detects the target. There 
are several reasons in the real world that detection might not occur. They 
are 

• The observer is not looking in the direction of the target. 

• The observer cannot distinguish the target from the background. 

• Environmental factors may prevent him from detecting the target. For 
example, there may be fog or dust obscuring the target, or it could 
be dark. 

• The observer is not alert. 

• The observer is suppressed by enemy fire. 

There are two methodologies for modeling the detection process that 
take the most important reasons for non-detection into consideration: the 
Night Vision and Electro-Optical Laboratories (NVEOL) detection model and 
the continuous looking detection model. According to Hartman [Ref. 10:p. 
4-24] the NVEOL detection model is the better of the two methods. 
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The NVEOL model considers and evaluates the following events in 
order to determine if detection occurs [Ref. 10:p. 4-24 - 4-25]: 

• the emitted or reflected target signature 

• transmission of the target signature through the atmosphere 

• the orientation of the observer's sensor 

• the processing of an attenuated signal by the sensor to form an image 

• the viewing of the display image and the response by the user. 

By considering all of these events, the NVEOL model allows for an accurate 
representation of the process of detection and how it is affected by 
battlefield conditions such as smoke, fog, darkness, etc. In a model that 
has the luxury of adequate computational power, it is the method of choice. 

The second method, the continuous looking model [Ref. 10:p. 4-12] 
represents the process of detection as the cumulative distribution function 
of the negative exponential. The parameter for this process is the 
detection rate which needs to be derived from detection experiments. The 
advantage to this equation is it keeps the process of detection 
determination simple. Everything is rolled into the one equation. Different 
parameters are assigned based on the conditions. Because of its simplicity, 
it is the method most promising for the personal computer environment. 
Implementing the continuous looking model in the program would not 
require a substantially amount of work. The real work will be in getting 
some valid parameters for the model based on already available data or new 
experiments. 
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IV. DISPLAYING THE DYHTACS REPRESENTATION 


The last chapter disc visaed the methodology for developing a personal 
computer based simulation using the DYNTACS representation for terrain. 
The intent of this chapter is to illustrate the various considerations and 
decisions needed to implement a three dimensional display of the DYNTACS 
terrain model on a microcomputer. Because of the limitations of the 
Enhanced Graphics Adapter (EGA), all of the procedures have to be 
implemented in the software. 

To fully explore the feasibility of using the microcomputer, a program 
was built from scratch. The program created to implement the three 
dimensional display of the DYNTACS terrain model has code that is divided 
into three categories: 

• Unmodified code that was adapted directly from existing sources and 
programs. 

• Modified code from existing sources and programs. In this category 
is code that needed some modifications or translation from another 
language. 

• Code written to implement known algorithms. This category also 
includes code written as a derivative of known algorithms and created 
as innovative solutions to a problem. 

Although there were some very useful procedures available in the first two 
categories, the majority of the code for the program is in the third 
category. Appendix C contains a listing of the interface portion of all 
units used by the program. The listing classifies the category for the 
code of each procedure according to the above list. 
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To insure the reader understands what the program does, it is 
appropriate to describe its capabilities. After a description of the 
capabilities, the topic shifts to the discussion of implementation decisions 
that affect the two most important issues about graphics - speed and 
realism. 


A. PROGRAM OVERVIEW 

The graphics program is best described by listing its capabilities and 
providing a few captured images; however, the black and white images do 
not do justice to the display. A true assessment of the program can only 
be obtained by seeing it in action at TRADOC Analysis Command (TRAC), 
Monterey. Its capabilities are as follows: 


• Displays a three dimensional representation of the DYNTACS terrain 
model in color with moving soldiers. 

• Uses a 20 square kilometer terrain database of processed DMA Level 
1 DTED (approximately 100 meter spacing). It can move anywhere 
within this square and displays a view out to three kilometers. 

• Has the ability to change viewing angles, viewing altitude, viewing 
magnification, and viewing direction. The default setting is from the 
viewpoint of a soldier standing on the ground looking to his front. 

• Moves the soldier's viewpoint as the soldier moves, which simulates 
moving across the terrain. 

• On a Dell 25 MHz 386 computer with math coprocessor, a VGA card, a 
VGA monitor, and cache memory displays one frame per 1.2 to 1.5 
seconds. It uses EGA mode, so only a EGA card and monitor are 
required. 

• Displays information regarding current location, heading, and view 
angle. 

• Has the ability to change location and intensity of the light source, 
to change ambient light conditions, and thus change the shades of 
color in the scene. 
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• Using digital halftoning, provides 24 different shades and tones each 
of red, blue, and green. 

• With minor processing of DTED Level 1, can display terrain anywhere 
in the world for which DTED Level 1 is available. DTED Level 1 does 
not include cultural features. 

• With enhancements, it can be incorporated into a training simulator 
for small unit leaders; i.e., platoon leaders. 

Three figures are provided to illustrate some of the capabilities of the 
three dimensional display. Figure 6 shows a view from behind a fire team 
(an element of 4 soldiers) at approximately six feet above the ground; 
Figure 7 show a side view of the fire team at six feet above ground; and 
Figure 8 shows a view from approximately 100 hundred feet above the fire 
team. The reason only a fire team is shown is because that is the largest 
size of force currently implemented in the display. This size was sufficient 
to test the display algorithms. The figures only demonstrate a few of the 
capabilities and potential of the program. 

B. GRAPHICS IMPLEMENTATION ISSUES 

The user of a graphics program judges its value using two criteria. 
The first criterion is how fast the program displays the scene. The second 
criterion is how realistically the program displays the scene. These two 
criteria, speed and realism, become the major concern in implementing a 
graphics program. Therefore, it is appropriate to address what the 
program does to provide realism and speed in displaying the DYNTACS 
terrain representation. 
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Figure 6. View from Behind Fire Team 
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Figure 7. Side View of Fire Team 
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1. Providing RnUn 

The program employs three techniques to support a realistic 
' representation of the DYNTACS terrain model with soldiers. They are: 

• The use of the perspective projection technique of displaying three 
dimensions. 

• The use of color filled polygons with hidden surfaces removed instead 
of a transparent wire-frame representation. 

• The use of a shading model that calculates the light intensities in 
order to determine the appropriate shade of color for the surfaces of 
the objects. 

a. Perspective P r o j ection 

Prospective projection displays objects so those at greater 
distance appear smaller. Using this technique, parallel lines on objects 
tend to converge. This technique resembles the way people view objects 
in the real world. If the reader looks at any building, he will notice that 
parallel lines on the building appear to converge in the distance. This 
technique provides for a more realistic representation of the terrain model 
by representing all three dimensions and not just two dimensions. [Ref. 
16:p. 184] 

The enhanced realism of a three dimensional display comes at 
a cost. Perspective projection techniques requires substantial mathematical 
calculations in terms of translating, rotating, and scaling objects to be in 
the correct location, orientation, and size. It is critical that the program 
perform these repetitive calculations as efficiently as possible. 
Fortunately, there are documented techniques for doing these calculations 


39 






efficiently through matrix concatenation of the translation, rotation, and 
scaling operations [Ref. 16:pp. 220*233]. 

b. FOled Polygons 

There are two options for displaying the images created by 
perspective projection. One of these techniques is displaying the object 
as a transparent wire-frame model. The problem with transparent wire¬ 
frame objects is that the viewer is sometimes confused as to the definition 
of the object. This can be overcome, to some extent, by removal of any 
lines that should be hidden from view. The advantage of the transparent 
wire-frame model is that it allows quick display generation. [Ref. 17:p. 45] 

The second technique of displaying objects is to fully shade 
the object or color the surfaces. This technique is often referred to as 
rendering. It provides for more realistic images but greatly increases the 
display generation time due to the need to color more pixels. Although the 
display time is increased, the program uses this technique for the effect 
of the more realistic display. Additionally, the terrain and objects are 
drawn with hidden surfaces removed. 

c. Shades at Color Dependent an Light Conditions 

The last technique to enhance realism is to use a shading 
model to determine the shade of color for filling a polygon. A shading 
model was adapted in a modified form from Computer Graphics [Ref. 16:276- 
289]. It determines which shade to use as a function of five variables. 
They are the light source location, the light source intensity, the ambient 
light intensity, the reflectivity of the surface, and the orientation of the 
surface. Descriptions of these five variables are as follows: 
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• The location of the light source is expressed as a three dimensional 
vector of unit magnitude pointing to the light source. This vector 
can be changed to indicate movement of the sun or moon. 

• The intensity of the light source is expressed as a value less than or 
equal to one. This value can be changed to model a cloudy versus 
dear day. 

• The orientation of the surface is expressed as a surface normal 
vector. The dot product of the surface normal and the light source 
vector equals the cosine of the angle between the two vectors. When 
the dot product is negative, the light source is behind the surface 
and thus, the surface is not illuminated. 

• The reflectivity of the surface is expressed as a coefficient less than 
or equal to one. 

• The intensity of ambient light is expressed as a value less than one. 
The sum of the intensity of ambient light and the intensity of the 
light source must be less than one. 


These five variables are used in the following equation to 
determine the intensity of the reflected light from the surface: 


/ - *.</. ♦ r.W)) 

where 

I - Intensity of Reflected Light 
k a - Coefficient of ReflectMty for Surface 
/ 4 - Intensity of Ambient light 
I B - Intensity of light Source 
N-L - The Doe Product of Surface Normal and 
light Source Vector 


After determining the intensity of the reflected light, a procedure is called 
to fix which of twenty four shades to use for shading that surface. This 
shading model provides more realism to the display by shading objects 
similar to the way they appear to be shaded when viewed by the human 
eye. 
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2. Providing S p eed 

When sitting in front of a computer display waiting for 
information to be displayed, the difference between a couple of seconds 
and ten seconds can seem like eternity to a user. A program that requires 
user involvement must have fast displays or the user will become 
frustrated as he continually waits for the computer to do its job. Since 
this terrain model is being built for interactive use by a user, speed is 
essential. 

Many techniques and algorithms are being incorporated in this 
program to enhance the speed with which the display is generated. Of 
these, there are three algorithms that account for the majority of the 
results to date. They are: 

• A specialized triangle filling routine. 

• The soldier sorting algorithm. 

• The integrated display algorithm. 

Although there are many other areas that affect the speed of the display, 
these are the areas that have received the most effort. All sure innovative 
solutions or application of known algorithms. 

a. The Specialised Triangle Drawing Procedure 

( 1 ) The Need. As mentioned earlier, drawing filled polygons 
requires more time than drawing a transparent wire-frame. For more 
realism, it was decided to not only use filled triangles, but to simulate 
more shades of a given color by using digital halftoning. Digital halftoning 
is a technique to generate more shades by creating patterns of pixels with 
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two slightly different tones of the same color. Using this technique, four 
tones of the same color can easily generate 16 different shades of a color. 

Turbo Pascal 5.5 provides a procedure in its graphics 
unit called Pillpoly that faT > polygons with a specified color or a pattern. 
Unfortunately, the pattern is restricted to a specified color and the 
background color of the display. To employ digital halftoning requires 
drawing the polygon twice, once with one pattern and the first tone, then, 
a second time with the complementing pattern and the second tone. Since 
the procedure’s source code is not available, altering this limitation is not 
easily done. 

Initial use of this "draw it twice" technique provided a 
good display, but at a terrible cost. On the Dell 386 computer, the time 
to generate one picture was timed at just under 30 seconds. These initial 
results forced a re-evaluation of the situation. Should the digital 
halftoning technique be dropped or should a new procedure to draw the 
triangles be created? The decision was to search for or design a better 
procedure. 

Most computer graphics references describe two 
algorithms for area filling of polygons that are suitable for the needs of 
this program. They are the border fill algorithm and the scan line 
algorithm. The border fill algorithm [Ref. 9:pp. 252-263] can be described 
as follows: 

• Trace the border and create an ordered list of the border pixels. 

• Perform a scan of the interior, checking for holes in the region 
defined by another polygon. 
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• Connect the left and right boundaries on each scan line by filling 
with a horizontal line. 


The scan line algorithm [Ref. 16:pp. 83-90] can be described as follows: 

• Trace the borders in a color that is different from other colors on the 
screen. 

• Scan a rectangular region that contains the polygon in order to 
determine the left and right border pixel on each line. 

• Connect the left and right border pixel by filling with a horizontal 
line. 


Both of these algorithms are general purpose algorithms. They work with 
many types of polygons if implemented correctly. With their general 
purpose design, the user gets flexibility at the expense of additional 
computation time. If a procedure needs to be prepared for use on any 
different number of polygons, then these are the tools that should be 
utilized. 

The DYNTACS terrain representation only needs the 
capability to draw triangles, but a large number of them. Only other 
objects, such as people, require the capability to draw various polygons. 
Since a four kilometer square with 100 meter spacing requires 3200 
triangles, any speed gained by a special procedure for triangles is worth 
the effort of designing it. As a bonus, other polygons can be made by 
putting several triangles together. 

( 2 ) The Specialized Algorithm. The development of a 
specialized algorithm is straightforward. A triangle is defined by three 
points connected by lines. Additionally, recall that the general polygon 
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algorithms determined the border pixels, then connected them with a 
horizontal line. A specialised triangle routine has the following steps: 


• Sort the three points of the triangle such that they are ordered top 
to bottom, and in case of the same y values, order them left to right. 
Refer to the ordered points as point one, two, and three. Refer to 
the lines between them as Line 1-2, 1-3, and 2-3. 

• Incrementally draw lines 1-2 and 1-3, one scan line at a time in order 
to determine the left and right border pixels of the triangle for that 
scan line. Fill that scan line between the left and right border 
pixels. 

• Continue incrementally processing line 1-2 and 1-3 for each scan line 
until point two is reached. 

• Now, incrementally process line 2-3 while continuing on line 1-3 where 
it stopped with the previous line. Continue until reaching point 
three, the end of the lines. 


This algorithm capitalizes on the fact that as the computer draws the lines 
from one point to another, it visits the pixels that comprise the border of 
the triangle. Instead of returning to these pixels later, as the scan line 
algorithm does, it makes the determination as part of drawing the left and 
right lines incrementally. 

(3) Implementing the Special Algorithm. As mentioned earlier, 

it is essential that the algorithm be implemented as efficiently as possible. 

Since speed is critical, the procedure needs to push the capabilities of the 

hardware to the maximum. Michael Abrash makes a statement in Zen of 

Assembly Language that is appropriate. He states: 

Comment your code, design it carefully, and write non-time critical 
portions in a high level language, if you wish, but when you write 
portions that interact with the user or affect response time, 
performance must be your paramount objective. Assembler is the path 
to that goal. [Ref. 18:p. 9] 
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A high level language, such as Pascal or ADA, is 
dependent upon the compiler to optimize code. Compilers for these 
languages are like the general purpose filling algorithms, they get the job 
done rather effectively, but sometimes not using the most efficient code. 
This deficiency is the price the programmer pays for the ease of 
implementation vising a high level language. 

A special purpose algorithm or code written in assembly 
language, if written properly, will get it done more efficiently than if 
written in a high level language. Using assembly language, the 
programmer can access hardware directly without having to use the Disk 
Operating System (DOS) or the Basic Input Output System (BIOS) routines. 
Some of the DOS and BIOS routines are not as efficient as they could be. 
By accessing the hardware directly, the programmer bypasses the 
inefficient DOS and BIOS routines and obtains better performance. In time 
critical code, such as graphics producing code, this technique results in 
substantial performance gains at the cost of increased programming 
complexity and development time. 

To implement the special purpose algorithm efficiently, 
two techniques need to be integrated: line drawing and area filling. The 
most efficient way to draw lines for a personal computer display is to use 
Bresenham's Algorithm [Ref. 9:p. 168]. To accomplish area filling, the use 
of horizontal lines is the most efficient method on the personal computer 
display [Ref. 9:pp. 168-169]. 

Integrating these concepts into one algorithm in assembly 
language is a complex, but necessary task if better performance is desired. 
Needless to say, they are implemented in assembly language for this 


46 







program. A listing of the FillTri routine with some additional explanatory 
comments is included in Appendix D. 

(4) The Results. After implementing the special purpose 
algorithm in assembly language, the program was run again to determine 
what improvements were obtained. On the Dell 386 25 MHz computer, the 
result was a display rate of just under five seconds. This display time 
was a vast improvement from the initial time of 30 seconds with the FillPoly 
procedure. 

b. The Soldier Sorting Algorithm 

Having developed a model that displays terrain in a 
reasonable amount of time, the next step is to add soldiers. After 
spending much time and effort to obtain the performance results mentioned 
above, it is essential that this step be equally efficient. The adding of 
soldiers to the display has the potential to increase display time 
significantly if not implemented in an efficient manner. 

(1) Nature of the Problem. To fully understand the problem, 
one area needs to be addressed: the manner in which terrain is drawn by 
the program. In particular, the method employed must be designed so 
hidden surfaces are not displayed. 

The method the terrain program uses is known as the 
painter's algorithm. This algorithm gets its name from the way a painter 
paints a picture. First the most distant objects are drawn. Additional 
objects are added to the picture working closer toward the view point. 
In the process, some or all of a previous object is covered up by the 
closer objects. The terrain displaying program uses this algorithm. It 
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starts with the most distant row or column of the terrain matrix and works 
its way back to the closest row or column. Thus, objects that should be 
hidden from view are covered up on the screen by the closer objects. 

Implementing this algorithm is relatively simple for the 
terrain by itself; simply draw the columns or rows in the correct order. 
Placing soldiers into this process makes it more difficult. Their location 
is dynamic and changes from display to display. Drawing them in the 
correct sequence requires two considerations. First, the program must 
determine which triangle they occupy. This is easy to determine because 
the elevation routine explained earlier developed an algorithm for 
determining what triangle a given point occupies. The other consideration 
is determining the drawing order for two or more soldiers when they are 
in the same triangle. This problem is one of sorting. 

Sorting problems have the potential to become time 
consuming. A bad sort algorithm can cause an otherwise efficient program 
to become inefficient. With this in mind, a search of several references 
provides some elegant solutions to the problem. 

(2) Binary Search Trees. The best technique for this 
particular problem is to insert the soldiers distance from the view point 
(depth) and a pointer to any other information required for the display 
into a binary search tree [Ref. 19:pp. 198-210]. A slight modification to the 
Binary Search Tree (BST) is in order. Instead of sorting by smallest 
values, the program needs to sort by the larger values. In this way, the 
more distant soldiers, in terms of depth, will be retrieved from the tree 
first. 
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As an added bonus, using Turbo Pascal 5.5, it is possible 
to implement the BST so that the objects inserted into the tree can be 
< different, as long as they are descendants of the same object [Ref. 20:pp. 
265-281]. Normally, due to Pascal's strong typing of variables, it is not 
possible to mix different types of pointers in a Binary Search Tree. By 
using objects, it is possible to create a BST that sorts not only the 
soldiers, but any other object that is to be displayed, Le., a tank. This 
method of implementation of the tree is used by the program, allowing for 
future expansion. 

(3) The Results. In implementing the BST, the amount of 
code increases only slightly. The overall effect in program running time 
with the soldiers added to the display is minimal. The display time on the 
Dell computer only increases approximately one-tenth of a second over the 
time reported in the last section when displaying four soldiers in the same 
triangle. 

c. The Integrated Display Algorithm 

In the search for better performance, the code has been 
scrutinized for inefficiency. Some initial improvements have been made in 
the organization and structure. This reorganization resulted in a more 
integrated display algorithm that capitalized on some of the capabilities of 
the programming language. The program currently uses the following 
integrated display algorithm: 

• Check to determine if the current terrain data in memory provides at 
least two kilometers of display depth. If not, load more terrain data. 

• Set the video write page to the page hidden from view on the display. 
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• Move soldiers and display viewing location from current locations as 
appropriate. 

• Set trigonometric variables used in the transformation, rotation, 
scaling and perspective projection formulas as global variables. 

• Determine which one of the fourteen drawing sequences to use. 

• Identify which squares of the 40 x 40 array of data points need to be 
processed for the display using the left and right boundaries of the 
field of view. 

• Perform three dimensional to two dimensional transformation on the 
terrain data points. 

• Sort soldiers by inserting into the appropriate Binary Search Tree. 
One empty tree exist for each of the triangles in the 40 x 40 array. 

• Draw triangles in the correct order. Draw any soldiers that are in 
a triangle after drawing that triangle and before drawing the next 
triangle. 

• Display information in the information part of the display. 

• Flip the hidden page to the display page, thus refreshing the display 
with a new frame. 

• Free any memory that was allocated for the BST’s. 

• Return to beginning of algorithm. 


This algorithm continues to be refined as more tests are done to check 
performance on the program. The results using this algorithm, however, 
are a significant improvement over the original attempt with the FillPoly 
procedure. The display now refreshes at a rate of between 1.2 and 1.5 
seconds. There are still some areas that can be improved, but the program 
is definitely pushing the edge of the capability of the personal computer. 
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V. ENHANCEMENTS 


This chapter discusses enhancements to the current capabilities of the 
terrain model that are essential for its incorporation into a light infantry 
platoon combat model. These enhancements involve: 

• Displaying cultural features such as forest, buildings, etc. 

• Line of Sight calculations 

• Modeling Target Acquisition 

• Building a detection list. 

These enhancements were not implemented as part of the terrain model 
because of the difficulty in implementing the three dimensional display. 
The time required to implement the display took more time to develop than 
initially planned. 

Without the last three enhancements, high resolution simulation of 
combat is impossible. Display of cultural features is not necessary, but 
without them, the battlefield display will be unrealistic. Terrain void of 
vegetation will significantly decrease the realism of the display. Each of 
the enhancements will be addressed individually. 

A. DISPLAYING CULTURAL FEATURES 

In Chapter III, cultural feature modeling was discussed briefly. Two 
techniques were presented as possible solutions; the use of codes assigned 
to each triangle and the alternative of vising geometric shapes to "map" the 
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vegetation to the terrain. Of these two methods, the use of codes for each 
triangle is the simplest to implement in terms of writing the code. 

Including cultural features would not be very difficult if it were not 
for the requirement to display them. Part of the problem is the method 
the program uses when drawing the terrain; it draws the triangles in an 
order that "paints" over areas that are hidden (the painter's algorithm). 
As long as the base of cultural features do not extend outside of a 
triangle, they can be drawn in the correct order by placing them in the 
Binary Search Tree with the soldiers. If the feature occupies more than 
one triangle, it must be subdivided into pieces that are assigned to the 
respective triangles they occupy. Otherwise, the painter's algorithm will 
not work (Le., objects that should be hidden are no longer hidden). 

Due to the requirement to draw a triangle and its associated 
occupants (Le., people or features) one after the other, it would be very 
difficult to utilize the method of geometric shapes to display the features. 
If geometric shapes are utilized, the program would require a procedure 
to interpret the shapes and determine which features each triangle 
requires as it draws the triangles. When a triangle is drawn, 
determination of whether it has any terrain features must be made before 
drawing the next triangle. If people are in that triangle, this issue has 
to be resolved before removing them from the BST and displaying. The 
complexity of implementing such an algorithm makes it prohibitive for the 
personal computer environment. Because of the painter's algorithm, the 
program is forced to utilize coded triangles to display the features. 

An innovative solution to the cultural feature display problem would 
be to utilize the code for each triangle to represent not only the type of 
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cultural feature, but also its location. For example, assume there are three 
trees in a given triangle. The programmer could have several codes that 
represent three trees; each with the trees in a different location of the 
triangle. The encoding of such information would be a time consuming 
process, but will save significantly on memory requirements. 

The topic of displaying cultural features deserves significant research 
in order to implement it properly. Of the four enhancements, it is the 
most difficult to implement and is deserving of a separate thesis. 
Implementation of the enhancement would probably take three to six months 
of effort. 

B. THE REMAINING ENHANCEMENTS 

The remaining three enhancements are so closely related that they 
should be implemented as a group. The modeling of the acquisition process 
needs the LOS determination and the capability to store its list of 
detections. 

1. Adding Line of Sight Calculations 

The LOS calculations were discussed in Chapter II and are 
documented in Appendix B. To implement LOS determination in the program 
will not require a significant amount of effort. The geometric calculations 
are straightforward. Of the four enhancements, it is the easiest to 
implement. It would take one to four weeks to implement, depending upon 
the programmer. 

2. Adding Detection Calculations 

The detection calculations consist primarily of implementing the 
negative exponential in an algorithm that determines if detection occurs. 
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In a time step model, the negative exponential would give the probability 
of a detection given LOS in the amount of time of the time step. Then the 
computer could generate a random number between zero and one. If the 
random number is less than the probability value obtained from the 
negative exponential, then detection occurs. If the random number is 
greater than the probability value then detection does not occur. As 
mentioned in Chapter II, use of this detection model is rather 
straightforward and easy to implement. The difficulty lies in determining 
the parameters for the negative exponential. To implement the negative 
exponential would only take about one week. Researching the parameters 
to be used in the simulation could take several weeks to several months 
depending upon the accuracy desired. 

3. Building a Detection List 

Once a detection has occurred, the model will need to store this 
fact in a list. Because the computer processes detection determinations on 
targets sequentially (only one at a time), it needs to build a list of 
detections from a given detection cycle. Then, it needs to process this 
detection list to make determinations of courses of action. To implement 
the capability to store such a list is only a problem of using well 
documented techniques for a list data structure. Implementation of this 
enhancement should only require a week or two of work. 
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VI. COHCLU SIOHS 


The intent of this thesis was to develop a program to display a three 
dimensional representation of a terrain model and soldiers on a personal 
computer. From this research, there are several conclusions: 


• The EGA card of the personal computer provides limited support for 
graphics programming. Graphics routines have to be implemented in 
software and for enhanced speed, they have to be implemented in 
assembly language. 

• The limitation of usable memory by DOS on the personal computer 
severely constrains the display program in terms of the size of 
terrain that can be loaded in memory at one time. 

• The DYNTACS terrain representation provides a feasible methodology 
for implementing a realistic three dimensional display of the terrain 
and provides the capability to use DMA DTED data. 

• The representation of cultural features (Le., trees) is relatively 
straightforward until one examines the requirement to display them. 
The display of cultural features is a complex problem and deserving 
of further research and development. 

• Routines provided in programming packages (Le., FillPoly) are good 
general purpose routines but may not meet the requirements of a 
program. A specialized routine tailored to the needs of the program 
can greatly improve the speed with which a program generates a 
display (five versus thirty seconds per frame). 

• The use of a Binary Search Tree to sort the order of displaying the 
soldiers had only minimal effect on the display time. The use of 
objects allows the use of mixed objects in the BST as long as they 
are all descendants of the same object. This allows for future 
expansion as tanks, helicopters, and other objects are added to the 
display. 

• The development of an integrated display algorithm further improved 
the display time (1.2 versus 5.0 seconds per frame). 


The results of this thesis indicate that it is possible to develop a 
display for a light infantry combat model on a personal computer that 
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provides a realistic image in three dimensions. From the programming 
standpoint, the graphics programming is the most difficult part of a light 
infantry combat model. From the research standpoint, there is much work 
to be done in order to fulfill the goal of developing the light infantry 
platoon combat model. 

The enhancements that still need to be added to the display program 
before full development of the combat model were discussed in Chapter V. 
Three of these enhancements are necessary in order to model the target 
acquisition process: Line of Sight calculations, detection, and creation of 
a detection list. These three are documented and are relatively 
straightforward to implement. The fourth enhancement, adding of cultural 
features, is the most difficult to implement and is worthy of additional 
research. As stated earlier, the use of the painter's algorithm for hidden 
surface removal and the memory constraints of the target computer make 
the integration of displaying cultural features a complex task. 

Once these four enhancements are implemented, the modified Lawson's 
Command and Control model for the individual and the "onion skin” diagram 
provide a framework with which to continue the development of the 
program until it becomes a combat model. An alternative path of 
development is to utilized the display with enhancements to conduct 
experiments to measure the effects of human factors on leader decision 
making. 

The development of a light infantry platoon combat model using the 
personal computer can greatly enhance the experience and training of 
platoon leaders. With such a model, units would be better prepared for 
deployment on a contingency mission such as Operation "Just Cause." 
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Command and Control of platoons could be greatly enhanced through better 
trained leaders. A platoon that has better trained leaders results in a 
better trained company, which in turn means a better trained battalion. 






APPENDIX A. PLANE DEPARTURE POINTS 


This appendix is referenced in Chapter III of the thesis in the section 
regarding Line of Sight determination. The intent of this appendix is to 
outline the algorithm for determining the plane departure points between 
two locations. Plane departure points are the entry and exit points of the 
triangular planes along a constant heading from the beginning point to the 
end point. 

The routine that would be developed based on this algorithm would 
be utilized by a movement routine that needs the plane departure points 
for calculating slopes along a path between two points. This will be 
necessary for calculating speed of movement. 

This algorithm is adopted from The Tank Weapon System which is 
referenced in the thesis. Except for changes in notation so as to insure 
consistency with the thesis notation, the algorithm is the same as described 
in the above reference on pages 64-65. 
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A. ROTATION 


Natation used in the algorithm is defined below: 


(x a , x a ) = starting point 
(X 4 , 24 ) = ending point 
{Pi> ?i)/ i*l» 2 , . . . , n = the set of plane 
departure points 

[x a ] = the greatest integer less than or equal to the 
real value of x a 

B. THE ALGORITHM 

The algorithm consist of three components. The first component 
calculates the plane departure points along the vertical terrain lines. The 
second component calculates the plane departure points along the diagonal 
terrain lines. The third component calculates the plane departure points 
along the horizontal terrain lines. Once these three components have been 
used to determine the plane departure points, all that remains is to sort 
them in the order they would be visited going from the start point to the 
end point. 


Vertical Terrain Lines 

1) If x m > x 4 then a - 0; (J - -1 
else « - +1; P - +1 


x 4 -x m 

3) p - <[xJ + «) 

4 ) If $p fc $x d then go Step 7 below 

5 ) q - m(p-x)+Z' 

6) Place (p, q) on Plane departure list, 
a - a + 0; Go Step 3 
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Horizontal Terrain Lines 


7) V ifz, then a - 0; p - -1 
else « - +1; P - +1 

8) q - lzJ+« 

9) (f p<? fc Pz rf tten Go Step 12 

10) p - — (*-zJ + x a 

m 

11) Place (p, q) on plane departure list, 
a - a + P; Go Step 8 


Diagonal Terrain Lines 


12) If x 4 * z d < x a + z m dun a - 0; p - 
else a - +1; p - +1; 

13) b - a*J + [*J * «) 


14) p 


V" -J. * b 
1 + m 


-l; 


15) q —p *b 

16) ^ pi fc p (x 4 + zj then all departure points 

are identified;. Go SORT 
16) Place (p, q) on plane departure point list, 
a - a + P; Go Step 13 
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APPENDIX B. LIKE OP SIGHT 


This appendix is referenced in Chapter III of the thesis in the section 
regarding Line of Sight determination. The intent of this appendix is to 
outline the algorithm for determining whether or not geometric Line of 
Sight (LOS) exist between two entities. Plane departure points are the 
entry and exit points of the triangular planes along a constant heading 
from the observer location to the target location. 

The routine that would be developed based on this algorithm would 
be utilized by the model to build a list of potential targets. A prerequisite 
for detection is that LOS exists. From the list of targets to which LOS 
exists, the detection model would determine if detection occurred. 

This algorithm is adopted from The Tank Weapon System which is 
referenced in the thesis. Except for changes in notation so as to insure 
consistency with the thesis notation, the algorithm is the same as it is 
described in the above reference on pages 80-83. 
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A. ROTATION 


Notation used in the algorithm is defined below: 


location of the observer 
location of the target 
coordinates of intersection between a 
terrain line and a plane parallel to the y axis 
= the greatest integer less than or equal to 
the real value of x 

= the macro terrain elevation at (p, q) 
calculated by the elevation procedure 
discussed in Chapter in 
: the macro terrain elevation adjusted for 
vegetation height 
= tree height in a forested area 
: hf if (p, q) is in forested area 
s 0 if (p, q) is not in forested area 

B. THE ALGORITHM 

This algorithm checks geometric LOS in three parts. First, it checks 
to determine if LOS exists over the vertical terrain lines. Next, it checks 
to determine if LOS exists over the horizontal terrain lines. Last it checks 
to determine if LOS exists over the diagonal terrain lines. If a LOS check 
fails during any one of the checks, LOS does not exist and the algorithm 
exits. 
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Vertical Terrain Mn— 


1) Determine z 0 and z, using elevation procedure 

2) Ifx t > x § then a - 0; 0 - -1 
else a - +1; 0 - +1 

3 ) I - ([**]+«) 

4) /ffii t then go Step 14 below 

J, „ - 

*t *0 

$>/- w 

T ) V (I* q) Is € forest, set h v - hi 
Else h v - 0 

*) / - 

*t *0 

9) If y 1 > Max(y UJ , den i - i + 0, Go Step 4; 

£Zse Go Step 10 

10) Jfy‘ < Minfy^j, y 4y+1 ) Mon LOS does nor exist SO EXIT 

11) Cal c ula te elevation y at (i, q) using elevation procedure 

12) If y > y' then LOS does not exist, SO EXIT 

13) i - i + f); Go Step 4 
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Horizontal Terrain Lines 


14) If it > i 0 then a - 0; P - -1 
else a - +1; p - +1 
13) j - (lzj+*) 

16) If Py > Pz» then go Step 26 below 

17) P - 

V*. 

18) < - \p] 

19) If (p, J) is e forest, set h y - kj 
Else A v - 0 

20) / - ♦ y - A 

z ,~*0 

21) |f y' > Maxfy^j, y KJ J (henj - j + p. Go Step 16; 

Else Go Step 22 

22) tfV < y t>1 ) then LOS does not exist SO EXIT 

23) Cal cu la te elevation y at (p,J) using elevation procedure 

24) If y > y 1 then LOS does not exist , SO EXIT 
23) j - j + P; Go Step 16 
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Diagonal Terrain Lines 


26) tfx t * z, < x, + z, then a - 0; P - -1; 
else* - +1; p - +1; 

27) b - ♦ [Zj * a) 

28) If P(x,+z,) < $b, the observer and target are intervisible SO EXIT 




29) p - 


x r x 0 


U 


v*. 

v*. 


< - w 

30) g - -p +b 
J - M 

31) ^ (p, g) if e Fore* rtm \ - h f Else - 0 


32) y ; - ^*2l(q- t ^y 0 -h y 

33Mfz' > Jtafy^p^,) then b - fr+P; Go Step 28 
£Z« Go Step 34 

34 ) jfi , < bHn(y M then LOS does -» exist SO EXIT 

35) Cal c ula te elevation y at (p, q) using elevation procedure 
16) If z> z' then LOS does not exist SO EXIT 

37) b - fr+P; Go STEP 28 
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APPENDIX C. INTERFACE LISTINGS 


This Appendix is referenced in Chapter IV of the thesis in the 
section regarding Displaying the DYNTACS representation. The intent of 
this appendix is to provide the reader a feel for the complexity of this 
program by providing a listing of the interface portions of all units used 
by the main program to display the terrain with soldiers in three 
dimensions. Each of the procedures in these listings is identified as 
belonging to one of three categories: 


• Unmodified code that was adapted directly from existing sources and 
programs. Code in this category is labeled Unmodified. 

• Modified code from existing sources and programs. In this category 
is code that needed some modifications or translation from another 
language. Code in this category is labeled Modified. 

• Code written to implement known algorithms. This category also 
includes code written as a derivative of known algorithms and created 
as innovative solutions to a problem. Code in this category is labeled 
New Code. 


The listings of the units and the main program follow on succeeding pages. 
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(ttttmtmtttmtfti |^ u oiittmmmmtttmt] 

uit shades; 

Interface 
utt graph, CIT; 

{ This uit is ued to cruto the ability to siailate differeit colors uing digital 
lalftoning. It provides procedures to set the palette for digital halftoning aith the 
colors of red, green ud bine ud to select ue of the shades bued oi the intusity value 
of the reflected color froi the sarface of the plane being draaa. The entire Unit is III CODE.) 

type 

Tonelttr = record 

leylatte, DitherColor, DitherPattern:byte; 

end; 

ToneXatrix : array[l..24] of Toaehttr; 
aar 

BlaeTones, Green Tones, ledTones: ToaeKatrix; 

Iat_ftab,Int.Point:Single; 

procedare change.palette; 

{ This procedare changes the palette to alios use of 4 tones of red, green, ud blue. The reaaining 
4 colors are black, shite, yellow, and grey. } 

procedare InitTones; 

{ This procedare sets ap variables in aeiory that contain the tao tones of a color (i.e. red) and the 

pattern to ase in drawing a sarface using these tao colors to create ap to 24 shades of the color. } 

fraction Draeing_Tone(Intensity:real):byte; 

{ This fraction returns the index into the array that contains the 24 shades of a color based on the 

intensity raise that is passed in as a paraaeter. Intensity ralues are between 0 and 1 } 

iapleientation 

{ IMPLEKEKT&TIOX OMITTED II TMESIS 1FPEIDIX } 
end. 


{ttttttttttmmtttfht Ground Onit*** mtttmmmmt *} 

uit Croud; 
interface 

ues Shades, CIT, 6I&P1; 

{ This uit provides the basic procedures and fractions for the drawing of triangles and lines ud 
initialisation of the prograa. It provides the global variables for the prograa } 
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coast 

CroudJtefjCocff:Single : 0.45; {reflection coefficient of gronnd) 
Spaciag:Siugle : 100.0; (interval betieen elevation points) 

1011 = 0; 11161 = 3); {tie range of nines for tie elevation points imp) 


Vector = record 

i,y,i:Single; {three diaensional vector coordinates) 
end; 

TwoVector = record 

Sl_Corner,IE_Corner:Vector; {one vector for each triangle in square, tie Sootiest {81) triangle 

and tie lorthlest triugle (aistakenlj labeled II tlroaglout prograi). 
end; 

Surfacejolor : lecord 

SI_Corner,ll_Corner:ljte; {one color acting for each triangle in a square) 

cad; 

Two J Jrray 1 array[LOII..lange,1011..lange] of P0IITTTP1; {POIITTTPE is defined in tie Turbo Pascal 

graphics unit G11PI as record of z, j of 
integer) 

TIITTPI * array[1..3] of PointType; {array of three vertices of a triangle) 

D1T1J11A!: array[LOHS. .1AIG1, LOIR.. RUG!) of Single; {elevation points for a square piece of terrain 

that is (lange - Lour ♦ 1) z Spacing large) 
Surfacejolor Jrray = array[iovr..lange,loir..lange] of SurfacejColor; 

{array of surface colors for all triangles in tie square piece of terrain being displayed) 
loraaljector Jrray = irray(lovr..lange,tour..lange] of TaoVector; 

{array of loraal vectors far all triangles in tie square piece of terrain being displayed) 
loraaljectorjtr * ‘loraaljector Jrray; 

lowjfjts - arrayftowr..lange] of Vector; {needed to prevent overflov of integer values vlen draving 

triangles that are close to the viewer) 

points : array[l..7] of single; 

PointTypeleal = record 
z,y:single; 
end; 

Closejows ’ array[0..2] of lowjfjts; {used to draw triangles that are close to the viewer) 


ch: char; 

Tonejojraw: Tonelttr; {Tone&ttr defined in Shades unit) 

Center:Point?ype; 

Screenliage: Pointer; 
light Jource: Vector; 

Surf ace.col ors: * Surf acejCol or Jrray; 
loraal Jectors: loraaljectorjtr; 

Closejow:‘Close Jows; 

0U1CTI0I: (I01T1,SOUTH,liST.UST,lOlTniST,I01T111ST,S0UT1I1ST,S00THEST,I01TH1,lOlTHWI, 
SSOUTIIISTS,SO0T1I&STS,I01TI1AST1,S0UTHI1STI); 

TwoJJata: ‘Two J Jrray; 

Til: TriType; 

S: string; 

TU, TLT, ill, BIT, 81 J, 11 J, linj, UIJ, linj, MiXJ: integer; 

ST0PP01IT, I11T1P1GE, 1II01C0D1, GI1PU0DE, GI1PIDIIV11, PAGE: integer; 
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dist,I, !, II, 12, 13, II, 12, 13, III JIG, 10LLJIG, P1TCIJIG : single; 
mis X, nus.I, misj, fiewjt,liewer_i,!ieuer_i,!awjif: single; 
nuni: pilettetipe; 

Dlfl: unjlIlT; 

SOU, SCALE.!, SCIIIJ, ObjlXin, OlJTXil, degrees,&IGLB:single; 

Theta,Alpha,TTheta,Tllpka,CT,Ct,CP,ST,SI,8P,ai,bi,ci,di,ei,fi,gi,ki,ii: single; 

Itlfllu: Single; 

lapJICJ ,lnpJICJ: integer; 

x7,y7:Points; {Used bj People viea object procedure) 

procedure 1IIT3D; 

(Ibis procednre initialises the progran to use EGA graphics lode and sets the boundaries 
of tbe screen for this lode. Initialises the loll, Pitch and Ian angles of the liener to 
0 for tbe prograi. RODIPIID CODE} 

procedure Allocate.lei; 

(This procedure allocates leiory fro> tbe heap for tbe Surface color array, the lonal Vectors array, 
the feo D Data array, and the Close Koi array. Ill CODE} 

procedure SetPisel(x,y:eord;n:byte); 

(This procedure is iipleiented in asseibly language. It sets a given pitel x,y to the nth color of the 
palette. 0IM0DIF1ED CODE} 

procedure Myline(xl,yl,x2,y2:word;n:byte); 

{This procedure is iipleiented in asseibly language. It draws a line froi (xl.yl) to (x2,y2) using the 
nth color of the palette. OIHODIPIED CODE) 

procedure MylineC(xl,yl,x2,y2:integer;n:byte); 

{This procedure is used to draw a line that has one or both end points off the screen 
(it clips the line to fit the screen). OIHODIPIED CODE) 

procedure SetPattern(p:byte); 

{This procedure is used to set the pattern that sill be used by the triangle drawing 
procedures FillTri and FillTriC. IEI CODE) 

procedure FillTri(xl,yl,x2,y2,x3,y3:vord;n,o,lMVbits:byte); 

(This procedure is a specialised procedure iipleiented in asseibly language that draws triangles. All 
three vertices lust be on the screen. The pattern last be set before calling this procedure using 
SetPattern. The triangle is drawn with the priiary color of the pattern as the nth color of the palette 
and the secondary color of the pattern as the oth color of the palette 

III CODE lised with soie MODIFIED CODE froi lyline which ues Iresenhai's algorithi for drawing lines.) 
procedure FillTriC(xl,yl,x2,y2,x3,y3:integer;n,o,IMVbits:byte); 

(This procedure is siiilar to FillTri except that the three points of the triangle do not have to be on 

the screen. It draws only that part of the triangle that is on the screen 

IEI CODE lixed with sole MODIFIED CODE froi lyline which uses Iresenhai's agorithi) 

procedure lestore; 

{This procedure restores the graphics card to its default condition at the end of the prograi. 

MODIFIED CODE) 
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procedure f il lliudoi {Fil 1 Col or, mbits : byte); 

{This procedure fills u liodou uith u color. It issues the uindot is already defined hj the nriihies 
TIT, TLI, III, BIT end is iipleiented in asseibly language. MODIFIED CODE} 


procedure ToJnit_?ector(var OnitJ'.Vector); 

{This procedure converts a vector passed in as OnitJ to a unit vector. MODIFIED CODE) 
function Dot_Prodnct(OnitJl,Onitj.:Tector):single; 

(This fraction returns the value of the Dot Product of the tso vectors OnitJ and OnitJ. MODIFIED CODE) 
procedure Cross_Prodnct(XU,TO,XO,XT,TT,XT:Single; var lonal:vector); 

{This procedure sets the variable lonal to the result of the cross product of the vector {10,10,10) and 
(IT,IT,IV). MODIFIED CODE} 

procedure SetJightJource(IL,11,IL, IP,lh:Single); 

{This procedure sets the vector that indicates the location of the point light source (the sun) to 
(XL.IL.IL). It sets the intensity of the point source to IP and the intensity of aibient light to It. 
IBM CODE} 

function Elevate(aloc,sloc:single):single; 

{This function iipleients the DIIT1CS algorithm for determining the elevation of a point on the terrain 
surface. It accepts as input the location (sloe, sloe) and returns the y value (the elevation) for that 
point. The values iloc and sloe are the relative coordinates in reference to lower left corner of the 
square piece of terrain in the terrain array. MODIFIED CODE} 

fraction ElevateJorld(aIocv,slocv:single)isingle; 

{This function is similar to the elevate fraction escept ilocv and xlocv are the vorld coordinates 
relative to the lover left corner of the 20 square kilneter terrain database in the file 32nl31e.da3 
MODIFIED CODE] 

procedure RE!D3D_FILE(var DiTh: DlTiJRRi!; LLI, LL!:Longint); 

{This procedure opens the file 32nl31e.da3 and initialises the 4 kiloieter square chunk in to the display 
array. Ill CODE} 

procedure RERDJori_FILE(var I0RMDRTR: Iormal_Tector_Ptr;LLZ,LLI:Longint); 

(This procedure reads in the surface nonals for each of the triangles in the 4 kiloieter square of the 
display data. IER CODE} 

procedure Calculatejurfacejons; 

{This procedure calculates Surface lorials for for the 4 kiloieter square of terrain data and stores the 
results in the surface nonal array. IE! CODE} 

procedure Caleulate.Surface.Colors; 

{This procedure calculates the appropriate surface colors of each of the triangles in the 4 kiloieter 
display square based on the light intensity values and stores thei in the surface color array. 

IE! CODE} 

procedure Line.Clip(var Xl0,yl0,z20,y20:single); 

{This procedure clips a line to drav only the portion that is on the screen/vindos. It accepts the line 
coordinates as real values. ORMODIFIED COD!) 
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procedure Poligou_ClipJrai(col:byte;n:iiteger;x. 7 :poittts); 

{This procedure drau triangles that are in the roes that are close to the rieier. To prevent overflow 
it oses real values. It uas adapted directly Iron Computer Graphics pp. 137*138 with only slight 
•odifieations. MODIFIED CODE} 

procedure Drau_Close(Ptl,Pt2,Pt3:fector;Tri_Col:byte); 

(This procedure is nsed to dra> triangles that are in the the teo rots closest to the viever. It 
uses real values to prevent integer overflow. It clips the triangles as necessary even if the triangle 
goes behind the vieter. It is an iipleientation of the theory of clipping in tvo and three dimensions 
MODIFIED CODE) 

implementation 

{ implementation omitted in thesis } 
end. 

Ground2 Onit* mtm * mmmmt ) 

unit Ground2; 
interface 

uses people,List,BSTree,pieces,Ground,shades,crt,graph; 

(This unit is a continuation of the ground unit but required the use of several other units before it 
could be implemented. Limitations on the sire of units that could be edited and debugged forced the 
breaking of the units in this fashion.) 

type 

MovingjDbj = array[lowr..Range,Lour..Range] of LinkObj; 

var 

lrray_0f .Movers:*Moving_0bj; 

ProjJI.Proj_X:Single; 

procedure Set.TrigJfal; 

(This procedure sets the global trigonometric values used by the Threed.ToJD procedure. 

It sets Cl (cosine of Tau), CR (cosine of Roll), CP (cosine of Pitch), S! (sine of law), 

SR (sine of Roll), SP (Sine of Pitch), and variables used in the translation, rotation, and 
scaling matrix (am,bm,cm,dm,em,fm,gm,hm,im). Using this procedure the values are set on once 
before performing calcualtions on all of the terrain data points. IER CODE) 

procedure Threed.ToJd.List(indexl,index2:Integer); 

(This procedure creates a dynamic list as necesary for each 100m square that has one or more moveable 
objects in it (i.e. soldiers) and then performs the calculations necessary to create the display data 
for each of those objects. MEM CODE) 

procedure TIREED.TOJD; 

(This procedure converts the three dimensional coordinates of the terrain into tvo dimensional coordinates 
that are suitable for display on the screen. It selectively handles only the data of the 4 km square that 
falls in the field of viev of the vieuer. This procedure is application of theory. REM CODE) 
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iapleaentation 


{ IMPLEIEITITIOI OMITTID II TIES1S &PPEIDIX} 
ad. 


{tttttttttttttttttttttttttTbe Grounds Unit**********************) 

unit Ground3; 
interface 

UN shades .ground, ground2 ,list,bstree,graph, info; 

{This unit contains lore procedures and functions that are related to the ground unit but use other 
additional units that the ground unit does not use.) 

procedure DR4I{This_Color:byte); 

(This procedure checks to detenine if the triangle is coapletely on the screen or not. If it is 

coapletely on the screen it draus the triangle using PillTri and then outlines it uith Upline. If it 

seeds clipping it draus the triage uith PillTriC then outlines it uith MyLineC. REH CODE} 

procedure Check Jispl ay Jeaain; 

{This procedure checks to see if at least 2 kiloieters of terrain display data are available to the front 
of the finer and that at least 1.5 ka are to the left and right of the vieuer. If these conditions are 
not satisfied, the procedure loads a neu square of data fra the 20 ki terrain database file into the 

display data array that provides 3.5 ka to the front of the vieuer. IN CODE} 

procedure HER; 

(This procedure iapleaents the painter's algoritha and draus the triagles for the terrain and the 
soldiers in the correct sequence so that hidden surfaces are hidden. In order to do this, it uses one 
of 14 drauing sequences dependent upon the vies direction. Each of the 14 drauing sequences draws only 
the triangles and objects that are in the field of vies of the vieuer. This procedure uses the 
Pilllindow, the Set_Trig_Val, and the ThreeD_To_2d procedures. RED CODE} 


implementation 

{ IMPLEMEIThTIOI OMITTED II TBESIS RPPEIDIX } 
end. 


Doit List; 
interface 
uses Pieces; 

{This ait iapleaents a dynaaic linked list using objects instead of records. This unit uas easily 
adapted fora the test Data Structures by Rick Decker pp. 73*77. The only aodifications uere to convert 
it to u object oriented list. The entire ait is MODIFIED CODE.} 


type 

lodePtr : ‘lodeRec; 
LinkPtr = ‘LinkObj; 
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Bodelec = record 
lext: lodePtr; 

Itei: ThreeDLocPtr; 
cod; 


LiukObj = object 
Pirst.last: lodePtr; 
procedure lait; 
procedure Bose; 

procedare idd(ThisItea:ThreeDlocPtr); 
function laptjlist:Boolean; 

(Checks to see if List pointed to bj L is eapty and) 
(returns Boolean answer] 
function PirstlistiBodePtr; 

(Returns pointer to first lode in List) 
function LastList:IodePtr; 

(Returns pointer to last Rode in List] 
end; 

(Mowingjbj : array(Lowr..Range,Lowr..Range] of LinkObj;] 
iapleaentation 

{ IMPL1MEITATI0I OMITTED II THESIS iPPEIDIX ] 


BSTree 

Unit BSTree; 
interface 

uses people,ground; 

(This unit is an iapleaentation of a Binary Search Tree aodified to work with this terrain prograa 
It is only slight aodified froa the BST presented by Decker in Data Structures pp. 198-202. Soae 
additional procedures were added to suit the nain prograas needs.] 

type 

Treejink * ‘Bode; 

Biuary_Search_Tree = Tree Jink; 

Bode : record 
left, RightiTree Jink; 

Tree_data:Data2dPtr; 

end; 

Two.Ptr * record 
BE, SB: Binary Jearch.Tree; 
end; 

LandMark2dJrray 1 array[Lowr..Range,lowr..Range] of Two.Ptr; 
landMarks2d - ‘landHarkfdJrray; 
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far 

LandMarksData: LandMarks2d; 
procedure Iuit_landMark2d_Array; 

{This procedure iaitializes the LandMark2d_Arrap bp first larking the top of the heap, then allocating 
aeiorj fro* the heap, and last setting all pointers to nil. IER CODE) 

procedure EraseJdLand*ark_Data; 

{This procedure erases the LandMark2d_irray bp freeing the teiorp that has been allocated since the top 
of the heap tas aarked in the initialisation of the Land*ark2d_arrap. Erasing in this unner presents 
the progra* fro* haring to go back and de-reference all pointers to the BSTs created. All of the 
■norp allocated since larking of the heap top is freed at once. IER CODE) 

procedure Create(rar B: Binarp_Search_Tree); 

{initialises B to point to a net eiptp binarp tree. OIKODIPIED CODE} 

procedure Insert(a:Data2dPtr;rar B:Binarp_Search_Tree); 

(inserts ato* a into tree is such a unner that the resulting tree is 
still a BST. If there is a node aith the sale value as the kep alreadp 
then the aton is inserted as a right child. MODIFIED CODE} 


procedure Clear_Tree(var P: Treejink); 

{deallocates all pointers in tree so that no garbage is left in heap. MODIFIED CODE} 

procedure Displap_LandMarks(P:Binarp_Search_Tree); 

{displays objects in binarp search tree bp doing an inorder traversal 
of tree. REM CODE} 

iipleientation 

{ IMPLEMEITATIOI OMITTED II THESIS APPEHDIX } 
end. 


{tmttmtmtttttmpfce c^ext Onit mtm ****** m *****} 

unit GTezt; 

{ In extended set of text routines for graphics lode adapted directlp fro* the reference Power Graphics 
Osing Turbo Pascal bp Keith Reiskaip et al pp. 74-79 with no aodification necessarp 
The entire unit is OIMODIFIED CODE} 

interface 

const 

Cl = 113; 

ESC : 127; 

IS = 198; 

{ These routines are available to any progress that "use” this unit } 
function IntToStr (Iub: longint): string; 

{This function returns an input integer value as string value (text).} 
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function EeilToStr(n: real; uidth, deciials: integer): string; 

{This inaction returns u input real value as a string (teat).} 

procedure Gfrite(S: string); 

{This procedure writes a string to the screen in graphicsaode at the location where the cursor is already 
pointing.) 

procedure GIriteXT(x, y: integer; S: string); 

(This procedure writes a string to the screen at a specific location ( 1 , 7 )) 

procedure 6 HriteCh(ch: char); 

{Writes a single character to the screen) 

function GReadReal(var Run: real): boolean; 

(Gets a real nuiber as input froi the screen followed by a carriage return.) 

function GReadStr(var S: string): boolean; 

(Echoes input frow the keyboard to the screen in graphics node) 

iipleientation 

uses 

Graph, Crt; 

(IMPLEMEITiTIOH OMITTED II THESIS 4PPEIDII } 
end. 


{tmttttmetmtttmtmyhe GPopPac Onit tmtmmMMM ** ttmi } 

unit GPopPac; 

{ This is a set of utilities that provides popup windows in graphics wode. 

The routines use Turbo Pascal's IG1 tools to siiplify the code. Most of 

the graphics settings are saved before a new window is put up and they 

are restored when the window is closed. This window data is saved on a 

stack. The stack is iiplewented as an array in order to siiplify things. These 

Utilities were adopted directly with no wodification frow Power Graphics Using Turbo 

Pascal by Neiskawp et al pp.219-222 with no wodifications. The entire unit is 

DIMODIPIED CODE} 

interface 

uses 

Graph; 

const 

RuwGRindows = 10; { Allow for 10 pop-up windows } 

type 
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Graphicslindov = record { lecord to sere graphics settings } 

TLeft,TTop,Flight,FBottoi: integer; { Parent aindoa boundaries } 
cpx.cpy: integer; { Current position in parent aindov } 

Savelrea: pointer; { Pointer to the saved region } 

DraiColor: lord; { Current draiing color ) 

end; 

var 

{ Graphics tindoi stack } 

findoaStack: array [L.IuiGlindois] of Graphicslindoi; 

{ Index to the next available location on the stack to use } 

GfindovPtr: integer; 

{ The externally visible routines froi this package ) 
function GPopupjleft, Top, Eight, Bottoi, BorderType, 

BorderColor, BackFill, FillColor: integer): boolean; 
procedure GOnpop; 
procedure Onpopllllindovs; 

inpleientation 

{ IMPLEMEHTATIOM OMITTED IE THESIS IPPEIDIX } 
end. 


{tmmetmmmmyiu! Frago Dnit llt ** mm **** lttt ‘) 

Onit Frago; 

(This unit installs a keyboard interrupt service routine that intercepts certain keystrokes before 
reaching the lain prograi. These interrupts are set up upon initialixation of the prograi and is hidden 
froi lain prograi. Only the variables below are usable b the prograi directly. This unit vas adapted 
fron the units explained in Turbo Pascal Advanced Techniques by Chris Ohlsen and Gary Stroker 
pp. 197*230. The entire unit is MODIFIED CODE.) 

interface 

var 

TieuLeft,VieuRight,VieiFront,FiewRear, 

PitchOp,PitchDn,HeightOp,EeightDn,Zooiin,Xooiout,lscape:Boolean; 

P:byte; 

implementation 

uses DOS,CRT,Gtext,gpoppac,graph,ground; 

{ IMPLEMEIT&TIOI OMITTED II TRESIS } 

end. 
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{tmmmmttttttttfiie i n f 0 

unit Info; 

{This nnit handles the intonation display on the screen. It can easily be changed to display any 
infonation that is desired. The entire nnit is IEV CODE} 

interface 
ues Gtext,proud; 

procedare Displayjnfonation; 

{This procednre displays infonation in a aindoi at the top of the screen. Intonation displayed includes 
the fiei aximth, the pitch angle, the yaw angle, and the viewer location} 

iapleientation 
ues graph; 

{ IMPLEMEITITIOI OIITTBD II THESIS &PPEIDIX } 
end. 


People Onit mttmmmmm ] 

Unit people; 

{This unit provides functions and procedures to initialise the data for displaying the soldiers 
and other objects. The objects provide a procedure to display themselves on the screen (Tiew.ObjJ) 
This unit is completely IEI COD! except for function htan.j 

interface 

uses graph,ground; 
const 

People_Ref_Coeff:Single * 0.45; 
type 

Three Jndices = array[1..3] of integer; 

Fourjndices = array(1..4] of integer; 

PeopleJFertices = array{1..32] of vector; 

Treejertices : array[l..14] of vector; 

People Jertices2d = array[1..32] of FointTypeReal; 

Treejertices2d * array{l..14] of FointTypeReal; 

Peoplejori = array[l..11] of vector; 

Treejon 1 array[1..12] of vector; 

PeoplejCol * array[l..11] of byte; 

TreejCol * array{l..I2] of byte; 

Color Jndices = array] 1.. 11] of Threejndices; 

Treejol or Jndices : array{l. .12] of Threejidices; 

Seq_l = array[l..32] of Pourjndices; 

Treejeg * array(1..71 of Pourjndices; 
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8tq_ud_lo s record 
no.Tri: integer; 

Sequence:Seq_l; 

ad; 

?ree_Seq_lnd_Io = record 
lojfri:integer; 

Sequence:Tree_Seq; 
ad; 

Seq_Ptr = ‘Seq_and_!o; 

Treejeqjtr : ‘Tree.Seq.andJo; 

People?ert2dPtr * *People_?ertices2d; 

Treefert2dPtr = “Tree_?ertices2d; 

ObjColPtr = ‘byte; 

Drenjate = object 
procedure Init; 
end; 

TreeColPtr = ‘TreejCol; 

Tree.Drae.Data = object(Drau.Data) 

Vertices_2d:Tree_Vertices2d; 

Draw_Seq:Tree_Seq_Ptr; 

Drau_Colors:TreeColPtr; 
procedure Init; 

procedure Set_Tree_?ertices2d(obj.head,base.i,base j, 

base_x,tree_scale:single); 
procedure Se t.Tree Jrau.Seq {ob j Jead, base.i, base j, 

base_i:single); 

procedure Set_Tree_Ora*_Colors(objJiead;single); 
procedure Set.ill_?ree_Dra*_Data(objJead,base.x.basej,base. 

tree_scale:single); 

procedure Vie»_Tree; 
end; {Tree.Drae.Data.Object} 

Tree.Drau.Data.Ptr = ‘Tree.Drau.Data; 

Porrest.irraj = array[1..20] of Tree_Dra»_Datx_Ptr; 

Porrest.Of.Trees s object 
Iuiber_of_Trees,Tree_To_!ie«:Integer; 
Tbe_Trees:Porrest_lrray; 
procedure Init; 

procedure Set_Tree_?o_?iei(The_Index:integer); 
function Get.Tree.To.fiei:integer; 
procedure Set_lo_of_Trees(In:integer); 
function GetJo_of.Trees:integer; 
procedure ¥ie«_Tree(index:integer); 
end; 
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Forrest _Ptr = ‘Forrest.of.Trees; 

Data_2d_0bj = object 
DepthtSiagle; 

constructor Init(Talue:Single); 
destructor Done;»irtual; 
procedure Setjepth(?alue:single); 
function GetJepth:single; 
procedure Set Jrat.Col ors (ptr: ObjCol Ftr); 
procedure ?iei_Obj_l;»irtual; 

end; 

PeopleColPtr * ‘People.Col; 

PeopleJd.Obj = object(Data_2d_Obj) 
Data:People?ert2dPtr; 

DraaSeq:Seq_Ptr; 

Dra«_Colors:PeopleColPtr; 
constructor Init(Falue:Single); 
destructor Done;rirtual; 
procedure Set_Data(?ert2d:PeopleTert2dPtr); 
fraction Get_Data:People?ert2dPtr; 
procedure SetJra«_Seq(Ptr:Seq_Ptr); 
function Get_Draw_Seq:Seq_Ptr; 
procedure Set_Drau_Colors(Ptrl:PeopleColPtr); 
function Get Jrau.Colors:PeopleColPtr; 
procedure Tie«_Obj_!;mtual; 

end; 

Tree_2d_0bj * object(DataJdJbj) 

Tree.indei: integer; 
constructor Init(Talue:Single); 
destructor Donejeirtual; 
procedure Set.Tree.Index(nui:integer); 
function Get_TreeJndex:integer; 
procedure Vieu_Obj.T;mtual; 

end; 

Draijeq = record 
SeqJ to 90,Seq_270_to_360, 
Seq_»0_to_180,Seq_l!0_to_270: Seqjtr; 

end; 

TreeDrauJeq : record 
SeqjO Jo .45 ,SeqJ5_to JO, 

Seq SO to 135.Seq.135_to.180, 

S*qJI0_to_225, Seq_225_to_270, 
SeqJ70Jo_315,Seq_315Jo_380: Tree.Seq_Ptr; 

end; 

PeoplefertPtr * ‘People.Tertices; 

TreePertPtr =‘Tree_?ertices; 
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PeopleloraPtr = ‘Peoplejora; 

TreeloraPtr 1 ‘Treejora; 

DrawSeqPtr = ‘Drawjeq; 

TreeDrawSeqPtr - ‘TreeDrawJeq; 

ColorlndPtr = ‘Color Jndices; 

TreeColorlodPtr = *Tree_Color_Indices; 

Data2dPtr 1 ‘DataJd.Obj; 

Peopl eData2dPtr 5 ‘People_2d_0bj; 

TreeData2dPtr = ‘free_2d_0bj; 

nr 

Forrest: Forrest Jtr; 

People_Data:People?ertPtr; 

Tree_B*ta:Tree?ertPtr; 

PeopleJoraals:PeopleIoraPtr; 

Tree_loraals:TreeloraPtr; 

People_Draw_Seq:DrawSeqPtr; 

Tree Jraw Jeq: f reeDraiSeqP t r; 

People_ColorJector_Ind:ColorIndPtr; 

Tree_ColorJfector_Ind:TreeColorIndPtr; 

People_Colors:PeopleColPtr; 

Tree_Colors:TreeColPtr; 

PeopleJata2d: Peopl eData2dPtr; 

Tree_Data2d: TreeData2dPtr; 

BeapTop: ‘lord; 

nos,bass,cans,dins,eins,fans,gins,bans,ians,C0Y,SOT,COR,SOR,COP,SOP:Single; 
procedure InitJeopleJraphJB; 

{This procedure iuitialixes tbe soldier three dimensional display data that all soldiers use to 
display theaselves. IEH CODE) 

function Conpute_People.Colors:PeopleColPtr; 

(This function deteraines the color to draw triangles of the soldier data base. It assunes that the 
Set_TrigJfal_Obj has already been called. IER CODE) 

function ITan(I, f: Single):Single; 

(This function returns the value of the arc tangent of i and y values input. MODIFIED CODE] 
procedure Set_Trig_¥al_Obj(Obj_Iaw,ObjJRoll r 0bj_Pitcb:Single); 

{This procedure sets the trigonoaetric values used in the Yiew.ObjJ procedures of each display object. 
IEM CODE) 

function Depth_Obj(X_Obj,I_Obj,I_Obj:Single):Single; 

{This function returns the depth or distance of an object froa the vie* location, this depth value is 
necessary to deteraine the order in which to draw the various objects. IEI CODE } 

function ThreeD_To_2D_0bj{ILoc,TLoc,ZLoc,leadjobj:Single):PeopleData2dPtr; 

{This function returns a pointer to the two diaensional display coordinates of an object that has been 
translated, rotated and scaled as appropriate for the display. IBB CODE) 
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iapleaentation 
uses Shades; 

(inplueitrioi omitted ii tiisis rppeidii } 

end. 


(tttmttttttttmtttttttThe pieces Dnit mmtmmttttmt *} 

Unit Pieces; 

{This nait creates objects for data structures for the platoon soldiers and equipieut. 
The entire Quit is III CODE} 

Interface 
nses People; 

type 

leaponList = (116,1203,160,1249,11911,147); 

NoreList = (Marching,PorcedMarching,Running,Bushing,LonCraaling, 

HighCranling,Standing,Kneeling,Laying); 

ShootList : (High¥ol4iaed,Lo*?ol4iied,HighTol4rea,Lo»Vol4rea,Loading, 
laued, lotPiring); 

CoaaList = (Talking,Listening,Radioing,Signaling); 

EquipList = (Pre77,Prc68,P¥S5,PVS4,Bayonet); 

inoList * (KifBal 1 ets,MGBullets,S&HBul 1 ets,Lavs,Grenades, 

Stokes,Flares,IEDP,H203111,M203Sak,Clajiores); 

EguipStatus = (Morking,Broken); 

41ertStatus = (4*ake, Sleeping); 

Protection * (Covered,Concea1ed,Exposed); 

DefStatus = (Prepared,lasty,lone); 

LifeStatns = (41 ire,Dead,Rounded); 

EquipRec = record 
IsPresent:Boolean; 

Status:EquipStatus; 
end; 

Eqaip4rray = 4rraj[Prc77..Bayonet) of EquipRec; 

(stores whether the indie has a piece of equip and its status) 

4aao4rray * 4rray[RifBullets..ClayMores] of Integer; 

ThreeDLocPtr * ‘ThreeDLocObj; 

PersPtr * ‘PersObj; 

TreePtr = ‘TreeObj; 

ThreeDLocObj * Object 

i,i,s,heading,Obj!an,ObjPitch,ObjRoll: single; 
constructor Init(Pti,Pty,Pti,Orien,Ian,Pitch,Roll:single); 
procedure ao?e(Pti,Pty,Pt*mingle); 
procedure Change Jeading(IeiJead:Single); 
procedure Change_Taw(Bew_Taw:Single); 
procedure Change_Pitch(Ie«JPitch:Single); 
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procedure ChangeJoll(leu_toll:Single); 
function Getl:single; 
function Getl:$ingle; 
function Get!:single; 
function Getleading:single; 
function Get!au:single; 
function Gettollrsingle; 
function GetPitch:single; 
destructor Done; virtual; 
ad; 

PersObj : Object(ThreeDlocObj) 

ThreeDDataPtr:PeoplefertPtr; 

IonalsPtr:PeopleIoraPtr; 

SequencesPtr:DrauSeqPtr; 

?ppelpn:leaponlist; 

TjpeMovt-.novelist; 

TypeShoot:ShootLis t; 

TypeCoaiConlist; 

taaoCarried:baolrraj; 

BquipCarried:Bqaiplrray; 

IraimllertStatus; 

Exposure:Protection; 

DefPosture:DefStatus; 

BodyStatus:LifeStatus; 

constructor Init(Ptx,Ptr,Ptt,Orien,Iai,Pitch,loll:single); 

procedure SetThreeDDataPtr(ptr:PeoplevertPtr); 

procedure SetloraalsPtr{ptr:PeopIeloraPtr); 

procedure SetSequencesPtrfptr:Dra«SeqPtr); 

procedure SetRpn(Bpn:ieaponlist); 

procedure SetMovt(Hvt:Kovelist); 

procedure SetSboot(Sht:Shootlist]; 

procedure SetCoin(Couode:CouList); 

procedure Sethaao(ln:lnolist;Uit:Integer); 

procedure Oselsao(&u:&noList;lit:integer); 

procedure IssueEquip(Bqu:Iquiplist); 

procedure Breaklquip(Equ:Iquiplist); 

procedure PixEquip(Equ:Equiplist); 

procedure Setlrain(cat:llertStatus); 

procedure SetIxpo$ure(Vis:Protection); 

procedure SetDefPosturefPost:DefStatus); 

procedure 8etlody(Cond:life8tatus); 

function GetThreeDDataPtr:PeoplevertPtr; 

function GetlonsalsPtrrPeopleloraPtr; 

function GetSequencesPtr:DrawSeqPtr; 

function GetVpn:Heaponlist; 

function Getlovtnovelist; 

function GetShoot:Shootlist; 

function GetCoaniConalist; 

function Getlno(&M:laolist)Unteger; 

function CheckIquip8tat(Equ:Equiplist):EquipStatus; 
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function CheckBqaipThere(Equ:Equiplist):Boolean; 

function GetBraimllertStatus; 

function GetExposureiProtection; 

function CetDefPostureiDefStatus; 

function C«tBodj:LifcStatos; 

destructor Done; Virtual; 

end; 


TreeObj * Object(ThreeDLocObj) 
constructor IniMPtx.Pty.Ptx.Orien.Iau.Pitch.Rolhsingle); 
destructor Done; Virtual; 
end; 

iipleientation 

{ IMPLEMEITiTIOI OMITTED II TBESIS RPPEIDII } 


&RF0R Onit* timmtmtmtt * 4 ** 4 } 

Unit UPOE; 

{This unit is a skeleton for setting up the friendly forces tbat are necessary for the cobat model. 

It prorides the structure for a light infantry plaoon organisation and can be expanded to provide the 
structure for a coupany sixe force. The entire Unit is IER CODE] 

interface 

uses pieces,people,List; 
const 

Defaultjnterral:Single : 0.1; 
type 

TeaiForns = (Ttfledge,TmOnLine,Teaa7i1e,Modjiedge,Diamond); 

TeaiPositions = (TeaiLdr,RutoRifle,Grenadier,Rifleuan.Rttachnent); 

SquadPorus = {SqdCo1umn,SqdLine,SqdPi1e); 

PltForms - (PltColuun,lineline,LineCol.PltVee.PltMedge.PltFile); 

MortTech = (Traveling,TravelingjOveruatcb,Bounding); 

SqdMsnLst ; (Move,kssault.Support.Defend,Delay,litbdra*.Reserve); 

PireTeanPtr = ‘PireTeanObj; 

FireTeauObj = Object 
TL,RR,GIDR,RM,ITT:PersPtr; 

SoldIat:5imgle; (Interval betueen soldiers] 

TeaaPon:TeanPoris; 

DetcctionsrlinkPtr; 

procedure Ioit(xTL, 7 TL,xTL:single;Dir:single;Porm:TeamPorms); 

procedure Done; 

procedure SetGIDR(PPtr:PersPtr); 
procedure Setil(PPtr:PersPtr); 
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procedure SetTL(PPtr:PersPtr); 

procedure SetKM(PPtr:PersPtr); 

procedure SetlTT(PPtr:PersPtr); 

procedure SetSoldierInternal(Sp:Single); 

procedare SetFonatioi( Fort: TeaiFons;Inter?al:Single); 

procedure SetDetections(Dptr:LinkPtr); 

procedare Attachllan(PPtr:PersPtr); 

procedure Detachlan(Posit :TeaiPositions;nr PPtr: PersPtr); 

function GetDetections:LinkPtr; 

fnotion GetGIDE:PersPtr; 

function Getll:PeriPtr; 

function GetTL:PersPtr; 

function GetBM:PersPtr; 

function GetAT?:PersPtr; 

function GetSoldierInter?al:Single; 

function GetPorutios:TeuPoras; 

procedure Besuppljfeai{Perc:Single); 

procedure NoreTeau; 

procedure ChangeTeaiHeading(Si:single); 
end; 

SqdPtr = 'Squad; 

Squad : Object 
SqdLdr:PersPtr; 

Alpha,lrafa:FireTeanPtr; 

SqdPori:SquadForis; 

SqdMso:SqdMsoLst; 
feailntiSingle; 

procedure Init(xTL,yTL,sTL:single;Dir:single;Pori:SquadForis); 
procedure Done; 

procedure SetAPireTeai(ABPtr:FireTeaiPtr); 
procedure SetBFireTeai(ABPtr:FireTeaiPtr); 
procedure SetSqdldr(PPtr:PersPtr); 
procedure SetTeailnternal (Sp: Singl e); 
procedure SetSqdPorifPon:SquadForis; Interval:Single); 
procedure AttachMan(PPtr:PersPtr); 
procedure DetachMan(Posit:TeaiPositions;var PPtr:PersPtr); 
procedure Resuppl;Sqd(Perc:Single); 
procedure Ho?eSqd(?ech:Mo?tTech5; 
procedure ChangeSqdBeading(Ai:single); 
function GetAFireTeai:FireTeai?tr; 
function GetBFireTeai:FireTeaiPtr; 
function GetSqdldr:PersPtr; 
function Getfeailnternal:Single; 
function GetSqdFon:SquadFons; 
procedure GetSqdLoc(?ar ts, 7 s,xs:single); 
function GetS^dBeading:single; 
end; 

PltPtr = ‘Platoon; 
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PIitoon • Object 
PstSqd,Sec Sqd,ThdSqd:SqdPt r; 

procedure Init(zTL ( 7 TL t xTL:single;Dir:single;Porm:PltFor«s); 

procedure Dose; 

nd; 


ear 

Offset,Set_Pitch,Ilternate_alt:single; 
iapleaentation 
uses ground; 

( 1NPLEMEIT&TI01 OMITTED II THESIS 1PPEIDII } 
end. 


prograa Main; 

{This is the tain prograa that uses all of the units listed helou. The interface portion of these units 
is presented above. The sain prograa is IBfi CODE} 

uses Frago,GText,Erfor,people,List,BSTree ( pieces,Ground3,Ground2,Ground, 
shades,crt,graph; 
var 

BluoTeaiiFireTeaiPtr; 
ctr:integer; 
lalfFov:Single; 

Start Jeading: Single; 

procedure Initialirejisposables; 
var 

irinteger; 

begin 

Init.landMarkZd.lrray; (also Marks BeapTop while creating array of BST's} 
lei(Irray.of.Movers); {Creates array of Lists for each square} 

FillChar(Irray_Of_Movers‘,SiieOf(Irray.ofJovers‘),0); {Set all Pointers to nil} 

Irray.of Jlovers* [Trunc( BlueTeaa*. TL* .Getl-Map JLC J), 

Trunc (B1 ueTeaa*. TL*. Get! -MapJLC J) ]. !dd( Bl ueTeaa*. TL); 

Irray.of _Movers‘{Trunc(BlueTeaB*.IR*.GetX-Map_BLC_l), 

Trunc (Bl ueTeaa* .IR* .Getl-Map JLCJ)] .Idd(BlueTeaa* ,IR); 
irray.Of.Movers*(Trunc{BlueTeaa*.GIDR*.Getl-Map BLC X), 

Trunc (BlueTeaa* .GIDR* .Getl-Map.BLC J) ].idd(BlueTeaa*.GIDR); 

Irray.OfJovers*{Tr«nc{IlueTeaa*.RM‘,GetI-Map_BLC_I), 

Trunc(BlueTeaa*.IM*.GetX-Map_IlC_I)].ldd(BlueTeaa*.RM); 
if BlueTeaa*.ITT <> nil then 
Irray.Of Jevers*(Tmc(BlueTea«*.ITT*.GetI-Map_BLC X), 

Trunc(!lueTeaa*.ITT*.GetX-Map.BLC.I)].Idd(BlueTeaa‘.ITT); 
end; 
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procedure InitialixeJIodel; 

begin 

Hriteln('Ester the bending for loreient nt stirtup in degrees i.e. 180.0'); 
leadln(SUrtJendiag); 

Start Jeading:=pi*Start Jeading/180; 

Briteln('Enter the a coordinate for loner left corner of of tap start'); 

Beadla(Map_BLC ja); 

Iritelnl'Inter tbe x coordinate for loner left corner of of up start'); 
leadlnOUpJLC I); 

IIIT3D; 

Shades. Change Jalette; 

Shades.InitTones; 

Filllindon(ll,0); 

■tITEP16B:=1-IIITEP&6B; 

sbttisuilpigeu-witeprge); 

SETICTITEPBGE(BRITEPIGE); 

Filllindon(ll,0); 

read3d_file(data,Map_BLC_X,Eap_BlC_Z); 

Tien Jt:=0.02; 

Offset:=0.5; 

Ian_Dif:=0.0; 

Trans_i:=21.25; Trans_x:=10.0; 

TEARS I:* Tien Bt ♦ elevate(Trans I,Frans I); 

Set_Light_Source(0.0,1.0,0.0,0.35,0.25); {0.7071068,-0.70710680,0.75,0.25);) 

Set_Pitch:= Pi*3/180; {Bo higher than 89 deg) 

Pitch_Ang:=Set_Pitch; 
lllocatejnen; 

Calculatejurfacejorss; 

Calculate Surface Colors; 

HalfFOV:=0.523598775; 
tly:=18; tlx:=25; 
bry:=331; brx:=614; 

scale:=( H > BIX-TLX) t Cos(IalfFOV)/(2 t Sin(HalfFOV)); 

InitJeoplejraphJB; 

len(Bluefeai); 

BlueTea**. Init {Map_BLC_X*ll. 25, ele?ate( 11.25,15.1), Bap_BLC_Itl5,l, Start Jeading, TnSedge) 


procedure Set_Tien_Coord(PPtr:PersPtr;Off:Single); 

nar 

Off Jilt:Single; 

begin 

if (TienFront * True) then begin 
Tan_Dif:=0.0; 

TienFront:=False 

end 

else if (Tienleft * True) then begin 
Tan_Dif:= -1.570796; 

Tienleft:=False 
end 

else if {TienRight = True) then begin 


86 




iHjif:: 1.570796; 

Tievligbt: =False 
•id 

else if (Tieniear = True) then begin 
I*»JDif:= 3.141593; 

TiesKear:=False 
end 

else if (PitcbOp = True) then begin 
PitchJng::PitchJng - Setjitch; 
PitcbOp:=False 
end 

else if (PitcbDn s Trne) then begin 
PitcbJng:=Pitch_Bng ♦ Setjitch; 
PitchDn:-Palse 
end 

else if (BeightOp : True) then begin 
?ie«_Ht:= Tiee.ht ♦ 0.2; 

BeightOp:=False 

end 

else if (BeightDn = True) then begin 
fie»_ht:= Tieejt -0.2; 
leightDn:=False 

end 

else if (looaln = True) then begin 
Scale:: 2*Scale; 

Zooain:=False 
end 

else if (SooaOut = True) then begin 
Scale::Scale*0.5; 

Ioonout:=Palse; 

end; 

Ia«Jng:= PPtr* .GetHeading ♦ Tatjif; 

Trans.x:: PPtr\Getx-HapJlCJ-off*Sin(Ta*_lng); 
Trans_x:= PPtr*.Getx-MapJLC_I-off t Cos(Ta>_lng); 
Trans j:= ele?ate(Trans_x,Trans_x)*¥ieOt; 
end; 

begin 

Initial ixejodel; 

Set Jfie«_Coord(BlueTean*.Tl,Offset); 
Cbeck.DisplajJeaain; 

Initialise^Disposables; 

Tien; 

for ctr:=1 to 5 do begin 
Belease(BeapTop); 

BlaeTeai'.HoeeTean; 
Set_Tiei_Coord(BlueTean\TL,Offset); 
CheckJisplajJeiain; 

Initialiie_Disposables; 
view; 
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end; 

Release(HeapTop); 

BlueTeai*.SetForution(TiOnLine,DefaaltJnter»al); 

BlneTeaiMoreTeai; 

Setji e» Joord (BlneTean* .TL .Offset}; 
Cheekjisplayjeuin; 

Initialitejisposables; 

Tien; 

for ctr:=1 to S do begin 
Release(HeapTop); 

BloeTeai\lo?eTeai; 

Set Jie* Joord(BlueTeai‘.TL,Offset); 
Cheekjisplayjeuin; 

Initialitejisposables; 

vie«; 

end; 

Belease(BeapTop); 

Bl ueTean*. SetFonat ion( TnNedge, Def aul t Jnt ertal); 
BlueTeai'.KoieTeai; 

SetJie»Joord(BlueTean‘.Tl,Offset); 
Cheekjisplayjeuin; 

Initialitejisposables; 

?ie«; 

Release(HeapTop); 

BlueTea«*. SetPor*ation(Mod_Kedge ,Defaul t_Interval); 
BlueTeai'.MofeTeai; 

Set Jie»_Coord(BliieTeaii\TL, Offset); 

Check JisplayJeiain; 

Initialitejisposables; 

?ie*; 

for ctr:=1 to 5 do begin 
Release(HeapTop); 

BlueTean'.MoveTeaii; 

Set Jie»_Coord{BlueTeat\TL,Offset); 

Check JisplayJeiain; 

Initialitejisposables; 

viei; 

end; 

Release(ReapTop); 

BlaeTeai*.SetForiation(Teaifile,Defau]tJnterral); 

BlueTean\Ho*eTeai; 

Set Jie* Joord( Bl ueTeai‘. TL ,0f f set); 

Check JisplayJeiain; 

Initialitejisposables; 

view; 

for ctr:=1 to $ do begin 
Release(HeapTop); 

BheTeai'.MoTeTeai; 

Set Jie* Joord(BlueTeai‘.TL,Offset); 
Cheekjisplayjeuin; 

Initialitejisposables; 
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fin; 

end; 

Release(BeapTop); 

BlueTeu*. SetFomt ion (Dinond, Def ml t Jnt erf a 1); 
UnefeuMiofeTeii; 

8et_fie*_Co#rd( BlueTeu* .Tl,0f fset); 
CheckJisplijJenain; 

InitialiieJDisposabl es; 
fieu; 

for ctr:=l to S do begin 
lelease(BeapTop); 

BlueTeu*.MofeTeu; 

Set Jieu_Coord(Bl ueTeu*. TL ,0f f net); 
CheckJisplajJeaain; 

InitialiseJDisposables; 
lieu; 
end; 

Release(HeapTop); 

BlueTean*.SetPor«ation(TnSedge,Default_Interval); 
BlueTeaa'.HofeTeaa; 

Set Jiei Joord(BlueTeaa* .Tl,0ffset); 
CheckJisplajJeaain; 

Initialize_Disposables; 
fieu; 

for ctr:=1 to 10 do begin 
Release(HeapTop); 

BlueTeaa'.MoveTeaa; 

SetJietr_Coord(BlueTeaa‘.TL,Offset); 
CheckJisplajJeaain; 

Initial ixejisposables; 
fieu; 
end; 

Release(HeapTop); 

BlueTeaaMtofeTean; 

Set Jieu_Coord(BlueTeai‘.TL, Offset); 
CheckJisplajJeaain; 

Iuitialixejisposables; 

fieu; 

B1 ueTeaa*. ChangeTeuHead ing (0.78539); 
for ctr:=l to 20 do begin 
Belease(leapTop); 

BlueTeaaMtofeTeaa; 

Set Jie«Joord(BlueTeu* .ft,Of fset); 

CheckJisplajJeaain; 

lnitialixejisposables; 
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vie* 

end; 

B1 neTeai*. ChugeTeuIeiding {1.570795); 
for ctr:=l to 20 do begin 
lelease(IeapTop); 

IlneTeuMoveteai; 

Set Jfiet_Coord{ BlueTeaiVTL,Offset); 

Check Jispl ay Jenin; 

Initialiie_Disposables; 
ties 
end; 

BlueTeaa\ChangeTea«Heiding{2.3561945); 
for ctr:=l to 20 do begin 
Release(HeapTop); 

BlueTeaa'.HoTeTeai; 

Set_?iew_Coord{BlueTeam*.TL.Offset); 

Check JisplayJeaain; 

Initialite_Disposabl es; 
vies 
end; 

BlueTeaa*.ChangeTeaaHeading(pi 1 190/180); 
for ctr:=l to 45 do begin 
Release(HeapTop); 

BlueTeu'.KoTeTeai; 
Set_Ties_Coord(BlueTeai‘. TL, Offset); 

Check JisplajJeiain; 

Initial isejisposables; 

Ties 

end; 

Release(HeapTop); 

Transj:*trans j*3.5355339; 

TransJ:=trans_*-l.4844861; 
Transj:=eleTate(trans_x,transj) ♦ Tiesjt; 
Ia*_ang:=Ia*_ang+0.785398163; 

Check Jispl ay Jeaain; 

Initialise.Disposables; 

Ties; 

Release(IeapTop); 

Trans j:=trans_i+l. 4644881; 
TransJ:=transj-3.5355339; 
Trans_j:*eleTate(trans_x,transj) ♦ Tiesjt; 
Ta*_ang:=Taw_angT0.7853f8163; 

Check Jispl a yjeiain; 

Initialize Jisposables; 

Ties; 

Belease(fleapTop); 

Trans_i:=trans_x-3.5355339; 

Trans_l:=trans_z-l.4644661; 
Transj:=eleTate(trans_x,transj) ♦ Tiesjt; 
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!ii_ing:=Iiw_*ng+0.7853981(3; 
CbeckJisplajJeiaiB; 

Initialiiejisposables; 

vin; 

Release(leapTop); 

fraasjt: -trm_i-l. 4644581; 
Traas_I: : traBS_i-3.5355339; 
Trins_j:=eleute(trus_i,trins_i) ♦ fieijt; 
Tai_aig: : Iat_aBg+0.7153911(3; 

InitialixeJDisposables; 
tie*; 

ch:=readkej; 

Release(IeapTop); 

Restore; 

CLOSEGRRPE; 

end. 
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APPENDIX D. ASSEMBLY CODE ROUTINES 


This Appendix is referenced in Chapter IV of the thesis in the section 
regarding Graphics Implementation Issues. The intent of this chapter is 
to provide a complete listing of the FillTri and FUlTriC routines and the 
routines they need to operate properly. A complete listing of the source 
code file is provided on the following pages. 


.MODEL TPASCAL 


BytesPerLine 

EQO 

SO ; limber of Bytes is video buffer per line 

OrigiaOffsetl 

EQO 

0 ; Byte offset of (0,0) OM FIRST PAGE 

OriginOffset2 

EQD 

SOOOh 

; Byte offset of (0,0) 01 SECOID PAGE 

TideoBufferSeg 

EQO 

OAOOOh 

; Video aeaory location Page 1 

ByteOffsetShift 

EQO 

3 

; used to convert pixels to byte offset 

Pil150a 

EQO 

OAAh 

; 10101010b 

Pill50b 

EQC 

55b 

; 01010101b 

FillSOc 

EQO 

OAAh 


Pil150d 

EQO 

55h 


Pi1125a 

EQO 

44h 

; 01000100b 

Pil125b 

EQO 

lib 

; 00010001b 

Pil125c 

EQO 

44b 


Pill25d 

EQO 

lib 


Pil112a 

EQO 

20h 

; 00100000b 

Pill 12b 

EQO 

02b 

; 00000010b 

Pil112c 

EQO 

80h 

; 10000000b 

Pilll2d 

EQO 

08h 

; 00001000b 

.DITk 

VarFilla 

D1 

y 

var for keeping current fill for 1st row 

farPillb 

DB 

y 

... . ” - 2d row 

TarPillc 

DB 

y 

3d row 

larPilld 

DB 

y 

4th row 

CurrFill 

DB 

y 

Byte code to keep track of which Varfill 
to use next 

FitCode 

DB 

y 

var to store fill pattern for this row 

C0L0I 

OB 

y 

var to store current fill color 

COLOR1 

DB 

y 


C0L0R2 

DB 

» 

« 


XITEMP 

DM 

t 

var to store tuporarily ordered tri 

X2TEMP 

DM 

y 

values 

XJTEMP 

DM 

y 

var to store teiporarily ordered tri 

T1TEMP 

DM 

y 

values 
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I2TBIP 

01 

? ; ear to store teaporarilj ordered tri 

I3THP 

DR 

? ; values 

RTLT 

DR 

? ; light Limit of horisoatal line 

LPLT 

DR 

? ; left Liiit of Borisoatal line 

RT1T1 

DR 

? ; light liiit of horisoatal line 

LFLT1 

DR 

? ; left liiit of Borisontal line 

1TLT2 

DR 

? ; Osed as light liiit if 1-2 and 1-3 

; are low slope 

LF112 

DR 

? ; Osed as left liiit if * ' ' ' * 

FIKST13 

DB 

? ; Osed to indicate if 1-3 nses first or last 

; value in lov slope routine 

FIR8T12 

DB 

• 

LAST23 

DB 

• 

RTLTUT 

DR 


ICORR 

DR 

? ; Current T value for Borisontal line 

DI13 

DR 

? 

DI12 

DR 

7 

DI23 

DR 

■> 

VM1IRC13 

DR 

1 

TU2IIC13 

DR 

? 

T&R1IIC12 

DR 


VIR2IIC12 

DR 

7 

V&R1IIC23 

DR 

7 

« 

TU2IIC23 

DR 

7 

IORIIII13 

DR 

7 

IORIIII12 

DR 

7 

BORIZIR23 

DR 

7 

LORISI 

DR 

1 ; Osed vhen luHipUcation is required 

IIMS1 

DR 

7 

SLOPE13 

DB 

7 

SLOPE23 

DB 

7 

SLOPE12 

DB 

7 

RODTIIE13 

DR 

7 

R00TIIE12 

DR 

7 

ROOTIIE23 

DR 

7 

COOITERl 

DR 

? 

COORTER2 

DR 

7 

SPECCISE 

DB 

7 

IXTRI 

TLI:ROBD 

; Top left p coordinate of viev aindov 

HTRI 

Til:ROBD 

; Top left i coordinate of viev viadov 

EITRI 

BIT:R0KD 

; Bottoi right p coordinate of vies viadov 

EXTRI 

BtX:ROID 

; Bottoi right i coordinate of vies sindov 

EITRI 

DH1 IIDS 

HITIPIGE:BOID ; Video Page to erite oa 


Changing Mbits to ltb * XOI, Oth * tad, 10b = or, 00* Replace 
.CODE 

EITII NILIII: IE&R 


93 






Pixellddr PIOC IIRR 

PUBLIC Pixellddr 


; Function: Setenine buffer address of pixel in nation EGA and 

• 

f 

320x200 U Color 

t 

f 

(40x200 18 Color 

• 

t 

640x330 18 Color 

• 

1 

640x480 2 Color 

« 

t 

640x350 sonochroae 

• 

i 

« 

(40x480 16 Color 

; Caller: 

A1 = y - coordinate 

« 

f 

BE = x - coordinate 

# 

; Returns 

RB = Bit uask 

« 

f 

BE * byte offset in Buffer 

1 

CL = uuaber bits to shift left 

1 

ES * video buffer segnent 

MOV 

CL,BL ; CL := loir order byte of x 

PUSH 

DI ; preserve D! 

MOV 

DI.BytesPerLine ; RX := y*BytesPerline 

MOL 

DX 

POP 

DX 

SHR 

BX, 1 

SHR 

BX, 1 

SHR 

BX,1 ; BX := x/8 

ROD 

BX,RX ; BX := y*BytesPerLine ♦ x/8 

MOV 

RX'RRITEPRGE 

CMP 

IX,0 

JHE 

OTHERPRGE 

ROD 

BX.OriginOffsetl 

JMP 

GTG 

OTIERPRGE: 


ROD 

BX.OriginOffset2 ; BX :* byte offset in Video Buffer 

GTG: MOV 

RX.VideoBufferSeg 

MOV 

ES,RX ; ES:BX := byte address of pixel 

RID 

CL,7 ; CL := x 4 7 

XOR 

Cl,7 ; CL :■ nuaber of bits to shift left 

MOV 

Rl,l ; II unshifted bit lask 

ret 


Pixellddr IIOP 


; configure pattern variables for fill 

SetPattern PROC 

pat.no:byte 

PUBLIC 

SetPattern 
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This routine sets the pattern to fill a triangle 
0 - 501 fill 

1 = 251 fill 

2 = 12.51 fill 


; deteraine vhich pattern is desired 

MOT IL.patjo ; !L patjio 

CMP IL,0 ; if patjno - 0 then go to P01 

JE P01 

CMP 11,1 ; if pat.no = 1 then go to P02 

JE P02 ; else pattern : 2 (121 fill) 

NOV lB,PilU2a ; (12% fill) 

NOV [VarPilla],&B 

NOV IE.Fill 12b 

NOV [VarFillb],IH 

NOV 1H, Fill 12c 

HOV [VarFillc],IB 

NOV !H,Filll2d 

NOV [TarFilld],IH 

JMP PEIIT 


NOV IE.Fill50a ; 501 fill 

NOV [VarPilla],IS 

NOV IE.Fill 50b 

NOV [VarFillb],lH 

NOV IH.Fi!150c 

NOV [VarFillc],IE 

NOV lE.Fil150d 

NOV [VarFilId],&H 

JNP PEXIT 


NOV IB.Fil125a ; 251 Fill 

NOV [VarFilla],IB 

NOV IB,Fill 25b 

NOV [VarFillb],IB 

NOV IB,Fill 25c 

NOV [VarFillc],IB 

NOV IB.Fil125d 

NOV [VarFilld],IB 

PEIIT: NOV IL.lOh ; Set pattern code for 1st ron 

NOV [PITCODE],IL 

RET 

SetPatterc HOP 
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CoififGraph PROC IEAB 


; configure graphics controller 


MOV 

DI,3CEh ; 

DX := Graphics Controller port addr 

MOV 

hi,[color] 

; hi pixel color 

108 

hL.hL 

; hL ;; set/reset register nuiber 

OOT 

DX,hX 


MOV 

hX.OPOlh 

; hi :• 1111b (bit plane aask for 
; Enable Set/Reset Register 1 

OOT 

OX, AX 

; hL :: Enable Set/leset Register I 

MOV 

hH.RMNbits 

; bits 3 and 4 of AH := function 

NOV 

hL, 3 

; hL Data Rotate/Punc Select Reg I 

OOT 

RET 

DX.hX 


ConfigGraph ERDP 

Horline PROC 

near 



; This routine draws a horisontal line using a fill pattern. It is only used by PillTri and FillTriC 
; The wiables ICORR, PhTCODE, lfltl, and rtltl iust be set by PillTri before calling this procedure. 


Set 


fill for this line using pattern code 
MOV hL,80h 

MOV DX.CI 

MOV Cl, [icon] 

US CL,03h 

SQL CL,1 

ROR ML, CL 

MOV [PRTCODB],&L 

MOV CX.OX 

CMP hL,80h ; check code to detenine uhich row to use 
IE Q01 

CMP ll,20h 

3! Q02 

CMP hl,08h 

3E Q03 

NOV U,[VhRPILLD] 

NOV [COUPILL], hi 

JMP QUIT 
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Q01: 

HOT 

U,[mFILLI] 


HOT 

[COIIfILLl.il 


JHP 

QUIT 

Q02: 

HOT 

U,[TUfIllB] 


HOT 

[COItflLll.lH 


JHP 

QUIT 

Q03: 

HOT 

IH,[T1RFILLC] 


HOT 

[CORRfILLj.il 


; preserve SI I D1 

QUIT: POSH SI 

POSH 01 


; routine for Horirontal lines (slope : 0) 


HOT 

!X,[TCORR] 


CBp 

bx.cx 


jb 

nocbange 


xchg 

bx.cx 


nochange: aov 

[lfltll.bx 


BOV 

[rtltij.cx 


CILL 

PIXELIDDR 

IH := Bit Hash 

IS'.BX -> video buffer 

CL := I bits to shift left 

HOT 

DI.BX 

IS:DI *> video buffer 

HOT 

DH.IH 

DH :: Bit aask for first byte 

HOT 

DH 

DH := reverse bit usk for first byte 

SHL 

OH, CL 


HOT 

DH 

DH bit Bask for first byte 

HOT 

CX,[RTLT1] 


UD 

CL,7 


IOR 

CL,7 

CL := nusber of bits to shift left 

HOT 

OL.Offh 

DL unshifted bit aask for rigbtiost 
byte 

SIL 

DL.CL 

DL :: bit aask for last byte 


; deteraine byte offset of first and last pixel in the line 
HOT IX,[RTLT1] 

HOT BI,[lfLTlj 

HOT Cl.ByteOffsetShift 

SHR II,CL ; IX := byte offset of x2 
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SIR 

IX, CL 

; BI :: byte offset of xl 

MOT 

CX,iX 


SOB 

CX,BI 

; CX :: (tbytes in line) - 1 

; get graphics controller port address into D1 

KO? 

BX.DX 

; BI := bit aask for first byte 



; BL := bit aask for last byte 

; tentative begin of loop save bi, 

cx,di,si 

POSH 

BI 


POSH 

CX 


POSB 

DI 


POSH 

SI 


HorixLine: 



and 

bl,[carrfill] 

; get patters correct for first 



; and last byte 

and 

bh,[carrfil1] 


HO? 

0X,3C£h 

; OX Graphics Controller Port 

HOV 

BL,8 

; IL := Bit Hask Register 

; lake video buffer addressable through DS:SI 

POSH 

os ; 

preserve DS 

POSH 

IS 


POP 

DS 


HO? 

SI ,01 

; DS:SI ■> video buffer 

; set pixels in leftmost byte of the line 

OR 

BI.BH 


JS 

L43 

; jnip if byte aligned ( xl is leftmost 
; pixel in byte 

OR 

Cl, Cl 


J1Z 

L42 

; jump if lore than one byte in the line 

BID 

BL, BH 

; BL := bit task for 1st byte 

JHP 

SHORT L44 


L42: HO? 

U,BI 

; update graphics controller 

00? 

OX, IX 

; IB := bit usk for 1st byte 

MO?SB 


; update bit planes 

OIC 

CX 


; ase a fast IOIS 

Mchine instruction to draw the reiainder of the line 

143: POP 

DS ; HIRE DIT SEGHEIT IDDRESSIBLE 


98 





MOT 

AH,[currfill] 

POSH 

DS 

; PIESERTE DS 

POSH 

ES 

; MAAE TIDEO BOPFES ADDRESSABLE THROUGH DS:SI 

POP 

DS 


OOT 

DX,AI 


UP 

MOTSB 

; Drav line a byte at a tine 


; set pixels in the rightiost byte of the line 

L44: MOT AH,BL ; U := bit nask for last byte 

OUT DI.AX ; update graphics controller 

MOTSB ; update bit planes 


POP DS ; restore DS 


MOT 

AL,[CORRFILL] 

; AL :: current fill pattern 

IOT 

AL 

; AL := reverse fill pattern 

MOT 

[CORRFILL],AL 

; nev fill pattern for sane horizontal 
; line. Set pattern to get at pixels 
; not changed on first pass 

MOV 

AH,[COLOR2] 

; set color to background fill i 

MOV 

[COLOR],AH 

; for second pass 

MOV 

DX,3CEh ; DX 

:: Graphics Controller port addr 

XOR 

AL,AL ; AL 

set/reset register nuaber 

OOT 

DX.AZ 


POP REGISTERS THAT MERE SAVED 


POP 

SI 


POP 

DI 


POP 

CX 


POP 

BX 


and 

bl,[currfil1 ] 

; get pattern correct for first 
; and last byte 

and 

bh,[currfill] 


MOV 

DX,3CEh 

; DX Graphics Controller Port 

MOV 

AL.t 

; AL :• Bit Mask Register 

take video buffer addressable through DS:SI 

POSH 

DS ; 

preserve DS 

POSH 

IS 


POP 

DS 


MOV 

SI, DI 

; DS:SI -> video buffer 
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; set pixels in leftiost byte of the line 

OR 

BB,BB 


JS 

L43B 

; juip if byte aligned ( xl is leftiost 
; pixel in byte 

OR 

Cl, Cl 


JIZ 

L42B 

; jmp if lore than one byte in the line 

AID 

BL, BE 

; BL :: bit lask for 1st byte 

JMP 

SHORT L44B 


L42B: MOV 

AS,BH 

; update graphics controller 

OUT 

DX.AI 

; AH :: bit insk for 1st byte 

MOVSB 


; update bit planes 

DEC 

CX 


; use a fast 8086 lachine instruction to drae the reaainder of the line 

L43B: POP 

DS ; 

MAKE DAT SEGMERT ADDRESSABLE 


MOV AH,[currfill] 

POSH OS ; PRESERVE OS 

POSH ES ; MAKE VIDEO BOPFER ADDRESSABLE THROUGH DS:SI 

POP DS 

OUT DX,AX 

REP MOVSB ; Oran lint a byte at a time 


; set pixels in tbe rightnost byte ot tbe line 


L44B: 

MOV 

AH ,BL ; AH : 

;; bit lask for last byte 


OUT 

OX, AX ; update graphics controller 


MOVSB 

; update bit planes 


POP 

DS ; restore DS 


MOV 

AL,[CURRFILL] 

; AL := current fill pattern 


IOT 

AL 

; AL := reverse fill pattern 


MOV 

[CURRFILL],AL 

; net fill pattern for saie horixontal 
; line. Set pattern to get at pixels 
; not changed on first pass 

L55: 

MOV 

AH,[COLOR1] 

; restore priiary color after second 


MOV 

[COLOR],AH 

; pass 


MOV 

DX,3C!h ; DX : 

:= Graphics Controller port addr 


XOR 

AL,AL ; AL 

:= set/reset register nrnber 


OUT 

OX, AX 



SKIPJDMP: 
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POP DI 

POP SI 

in 

lorLine HOP 


HISLOPE PKOC HIE 

; This routine is used bj the fliSlope routines (i.e. BiSlopel2) nnd returns the 
; increient to «ove horixontallp to find the border pixel in register BI. Th IX register 
; returns the neu DI variable 



OB 

IX,IX 


JIS 

lOIEGDI 


&DD 

&X, BX 


XOX 

BX r BX 


JMP 

EIBTE 

IOBEGDI: 

ADD 

RX.CX 


MOT 

BX, OX 

HIBYE: 

RET 


BISLOPE 

EIDP 


LOSLOPE 

PROC 

HEAR 


; This routine is used by the LouSlope routines (i.e. LouSlopeI2) and returns the 
; increient to love horizontallp to find the border pixel in register BX. Th IX register 


; returns 

the neu DI variable 


POSR 

SI 


XOR 

SI,SI ; xero SI 

LOSLO : 

ADD 

SI.DX ; add horixontal increment 


OR 

AX,AX ; check DI for to see if positive 


JIS 

PODI 


ADD 

AX, BX 


JMP 

LOSLO 

PODI: 

MOT 

BX.SI 


ADD 

AX, CX 


POP 

SI 


RET 


LOSLOPE 

EIDP 


BiSlopel3 

P10C 

BEAR 


; This routine iipleients Bresenhai's algorithm for the High Slope case 
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MOV 

AX,[DI13] 


MOT 

BE,[T&R1IIC13] 


MOT 

CX,[T&R2IIC13] 


MOT 

DX,[B0RIZII13] 


C&LL 

EISLOPE 


MOT 

[DI13],&X 


MOT 

AI,[LFLT] 


MOD 

11,11 


MOT 

[LFLT],AI 


RET 


HiSlopel3 

EIDP 


LovSlopel3 

PROC 

IE&R 


HOT 

RI,[D!13] 


MOT 

BI,[TAR1IIC13] 


MOT 

Cl,[T&R21IC13] 


MOT 

DI , [H0RIZIR13 ] 


CELL 

LOSLOPE 


MOT 

[DI13],1I 


MOT 

AX,[LFLT] 


MOD 

11,11 


NOT 

[LFLT],AX 


RET 


Lo«Slopel3 

EIDP 


Vertical13 

PROC 

IE&R 


MOT 

BX,[X1TEMP] 


MOT 

[LFLT],BX 


RET 


Vertical^ 

EIDP 


HiSlopel2 

PROC 

BEAR 


MOT 

U,[DI12] 


MOT 

BX,[V&R1IIC12] 


MOT 

CX,[TAR2IIC12] 


MOT 

Dl,[B0RIZII12] 


C&LL 

EISLOPE 


MOT 

[DI12],&X 


MOT 

il,[RTLT] 


MOD 

&X.BX 


MOT 

[RTLT],AX 


RET 


BiSlope!2 

EIDP 
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Lo«Slopel2 


noc mi 



MOT 

AI,[DI12] 


MOV 

IX,[VAI1IIC12] 


MOV 

CX,IVAR211C12] 


MOV 

DX,[BOR1XII12] 


CALL 

LOSLOPE 


MOV 

[0112],AI 


MOV 

AX,[RTLTl 


IDO 

AX, BX 


MOV 

[RTLT],AX 


MET 


LoiSlopel2 

no? 


Vertical^ 

PKOC 

REAR 


MOV 

BX,[X2TEHP] 


MOV 

[RTLT],BX 


MOV 

[0112],0 


RET 


Vertical^ 

ERDP 


EiSlope23 

PROC 

REAR 


MOV 

AX,[DI23] 


MOV 

BX,[VAR1IRC23] 


MOV 

CX,[VAR2IRC23] 


MOV 

DX,[HORIXIR23] 


CELL 

HISLOPE 


MOV 

[0123],AI 


MOV 

AX,[RTLTALT] 


ROD 

AX, BX 


MOV 

[RTLTALT],AZ 


RET 


HiSlope23 

ERDP 


lo«Slope23 

PROC 

REAR 


MOV 

AX,[0123] 


NOV 

BX,[VAR1IIC23] 


NOV 

CX,[VAR2IRC23] 


MOV 

DX,[10KIXII23] 


CALL 

LOSLOPE 


MOV 

[0123],AI 


MOV 

AZ,[RTLTALT] 


ADD 

AI.BI 


MOV 

[RTLTALT],AZ 








lit 


LotSlope23 

IIDP 


Iertical23 

PROC 

HERR 


HOV 

BE,[X2TINP] 


MOV 

[ITLT&LT],BZ 


NOV 

[DJ23],0 


RET 


Vertical 23 

EIDP 


Horixontal23 

PROC 

near 


NOV 

BI,[X2TEMP] 


NOV 

[RTLT],BE 


RET 



Horixontal23 EIDP 


PillTri PROC il:RORD,jl:RORD,z2:iORD,j2:H0RD,i3:HORD,j3:iord r n:BITE r o:bjte,R)nibits:BYTE 
PUBLIC PillTri 

; This routine fills a triangle identified by its three vertices uith a pattern of t«o colors, 

; n and o. The variable RNIbits set the graphics controller to write using BID, OR, or XOR Logic. 

; The pattern lust be set befor calling this routine uith routine SetPattern. This routine uses the 
; following routines -- ConfigGraph, PixelRddr, Borline, all liSlope (i.e BiSlopel2), 

; all LovSlope (i.e. Lo«Slopel2), all Vertical and lorisontal Routines (i.e. Vertical23) 

; Order values so that II is T lin and T3 is T lax 
PUSH SI 

PUSH DI 

; Set fill color for this line using color code 


NOV 

!L,I ; RL 

:= fill color******* 1 **** 

NOV 

[COLOR],RL ; Color = fill color** 4 ******** 

HOV 

[COLOR1],RL 


NOV 

RL ,0 


NOV 

[C0L0R2],RL 


CALL 

COIPIGGRRPH 


IOR 

RL.RL 


NOV 

[SL0PE13],RL 

Set all slopes equal to xero 

NOV 

[SL0PE12],RL 


NOV 

[SLOPE23],RL 


NOV 

11,11 

Hove all X & T values to 

NOV 

BZ,I2 

to processor registers before 

NOV 

CI.I3 

beginning sort. 

NOV 

DX, XI 

Values are sorted fron lowest to 

HOV 

DI ,12 

highest ! values. If T values are 

NOV 

81,13 

sane then sort bp lowest I value. 

CNP 

RI.BI 

IEGII SORT 

JE 

P01 

HEED TO CHECK TO ORDER BT X VRLUES 
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JR 

F02 ; IEED TO REORDER 

IEZT: 

CMP 

BX,CX 


JK 

FOB ; IEED TO CHECK TO ORDER B! I VRLOES 


JR 

F04 ; IEED TO REORDER 


JMP 

ORDERED 

HI: 

CMP 

OX, 01 


JBI 

IEXT ; ORDER IS OUT IF 11 - 12 <= 0 ELBE GO 

; TO F02 

F02: 

XCHG 

RX,BX ; Exchange X and I values 


XCBG 

DX.DI 


JMP 

IEXT ; Go back and start on point Two. 

F03: 

CNF 

DI.8I 


JBE 

ORDERED ; ORDER IS OKRY IF X2 - 13 <= 0 ELSE GO 
; TO F04 

F04: 

XCBG 

BI.CX ; Exchange X and ! values 


XCHG 

DI.SI 


CMP 

RI,BX 


JE 

RLTCBECK 


JR 

REORDER 


JMP 

ORDERED 

RLTCHECK: 

CMP 

DX.DI 


JBE 

ORDERED 

REORDER: 

XCBG 

RX.BX ; Exchange X and I values 


XCHG 

DX.DI 

ORDERED: 


NOV 

[T1TEMP],RX ; Save the Correctly ordered 


MOV 

[T2TEMP],BX ; I and I Values 


MOV 

[T3TEMP],CX 


MOV 

[X1TENP],OX 


MOV 

[I2TEMP],DI 


NOV 

[X3TENP],SI 


MOV 

[LFLT],DX ; Initialise left liiit, right limit 


NOV 

[RTLT],DI ; right liiit alternate, and I current 


NOV 

[RTLTRLT],DI 


NOV 

[!CORR],RX 


NOV 

RX,SI ; RX := 13 


NOV 

BX.l 


BOB 

RX.DX ; RX X3 • XI * DX13 


JX 

VERT13 ; JUMP IF LIRE HON 1 TO 3 IS VERTICRL 


JIB 

FOS ; JUMP IF POSITIVE 


BEG 

RX 


REG 

BX ; NRKE IOIIZ IICI FOX HIE 1-3 IEGRTIVE 
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MS: 


MOV 


[1011IIV13],BZ 


F06: 


F06ILT: 


VERT13: 


10IIZ13: 


MOV 

BZ,[T1TEMP] 


MOV 

CX,[Y3TKMP] 


SOB 

CX,1X 

; CX : DI13 

J! 

1011X13 


CUP 

Cl,IX 


JL 

MS 

; DT < OX LOM SLOP! 

JCIG 

IX,CX 

; EXCIUGI DI UD SX 

MOT 

IL,01 


MOT 

[SL0PB13],BL 

; Set code for high elope 

MOT 

IX,OFFSET IISL0PI13 

MOT 

B00TIIE13,BX 

; Set lootioel3 to EISL0PI13 

MOT 

[FIRST13],0 

; Set Pirstl3 to Ptlse 

JMP 

FOSIIT 



MOT 

1L,0 


MOT 

[SL0PE13],BL 

; Set code for LOM slope 

MOT 

BX,OFFSET L0HSL0PE13 

NOV 

R00T1IE13.BX 


SHL 

cx,i ; 

CX := 2 * DT 

MOV 

[TIR1IIC13], CX 

; 1ICR 1 FOR 1 - 3 = 2 * DI 

SUB 

CX.IX 


MOV 

[0113],CX 

; 0113 (2 * 01) - OX 

SOB 

CX,!I 

; CX := 2*(DT - OX) 

MOV 

[TIR2IIC13],CX 

; VIR21IC13 2*(D!-0I) 

JHP 

ST1RT12 


IOR 

BX, BX 

; LIRE FROM 1 TO 3 IS VERTICIL 

MOV 

[H0R1ZIH13],BX 

; HORIZ IMCR : 0 

MOV 

BX,OFFSET TERT1CIL13 

MOV 

R00T1IE13,BX 


MOV 

[SL0PE13],3 

; Set Slope Code = 3 

MOV 

[FIRST13],0 

; Set Firstl3 to False 

JMP 

STIRT12 


; ILL THREE POUTS IRE IORIXOITIL DIM LIKE FROM 1 • 3 

NOT 

IX, [T1TEMP] 


MOV 

[T CDRR],IX 

; TCORR -- T1TEMP 

MOT 

BX,[X1TEMP] 


MOT 

[LFLT],BX 

; LFLT = X1TEMP 

NOT 

CX,[X3TEMP] 


MOT 

[RTLT],CX 

; RTLT = X3TEMP 

MOT 

BX,[LFLT] 


MOT 

CX,[RTLT] 


CILL 

IORLIIE 


JMP 

FTREXIT 



STIRT12: 
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F07: 


ION: 


P08: 


F08ILT: 


TEBT12: 


MOT 

U,01 ; 11 

:= 12 

MOT 

IX,1 ; IX 

= loriiootil Increieot 

MOT 

DX,[X1TEMP] 


SOI 

II,DX ; IX 

:: 12 - XI * DX12 

JX 

TERT12 ; JOMP IF LUX FIOM 1 TO 2 IS TERTICIL 

JVS 

F07 ; JOMP IF FOSITITE 

MIC 

IX 


no 

II ; MIKE 10RIX IECS FOR LIIE 1-2 IEGITITE 

MOT 

[I0RIXII12],BX 


MOT 

IX,[I1TENP] 


MOT 

CX,[T2TEMP] 


SOI 

cx.ii ; 

<**4 

A 

•1 

u 

MOT 

[COOETERl],CX 


jix 

101 


IMF 

1011X12 


CMP 

CX,!1 


Jl 

F08 ; 

DT < OX LOO SLOPE 

XCIG 

IX,Cl ; 

EICIIIGE DT IID DX 

NOT 

11,01 


MOT 

[S10PI121.1L ; 

Set code for high slope 

HOT 

IX,OFFSET I1SL0PE12 

NOT 

ROOTI1X12,11 


NOT 

[FIIST12],0 


JMP 

FOUL? 


NOT 

IL,0 


NOT 

[SL0PE12],1L ; 

Set code for LOO slope 

NOT 

IX,OFFSET L0ISL0PE12 

MOT 

I00TIIE12,BX 


SIL 

cx.i ; 

CX := 2 * DT 

MOT 

[TIR1IIC12],CX ; 

IICR 1 FOR 1 - 2 1 2 1 DT 

SOI 

Cl, II 


MOT 

[0112],CX ; 

0112 := (2 * DI) - DX 

SOB 

ex,ix ; 

CX :=2»(DT - DX) 

MOT 

[TIR2IIC12],CX ; 

T1R2IIC12 := 2*(DI-DX) 

JMP 

STIST23 


XOI 

IX,IX 

LIIE FROM 1 TO 2 IS TERTICIL 

MOT 

[I0RIXII12],IX ; 

10RIX IICR = 0 

MOT 

IX,[I0RIXII13] 


CMP 

IX,IX 


JX 

BOTITERT 

1 - 3 IID 1 - 2 IRE TERTICIL 

NOT 

II,OFFSET TEITICIL12 

MOT 

R00TIIB12,BX 


MOT 

IX,[T1TEMP] 


MOT 

CX,[T2TEMP] 


SOI 

cx.tx 

CX * DT12 

NOT 

[COOKTES1],CX ; 

Counterl * T2-T1 

MOT 

[SL0PE12],03 ; 

Set Slope Code : 3 
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HOT 

[P1!ST12],9 

; Set Pirstl2 to Pilse 


IMP 

8TAIT23 


BOTITERT: 

HOT 

AZ,[T1TEMP] 



MOT 

[ICORE],AI 

; TC01R * I1TIHP 


HOT 

CX,[I3TEHP] 



301 

CI.Al 

; ESTABLISH COOITER 


POSH 

AI 

; SATE 11 


HOT 

AZ,[I1TKHP] 



MOT 

[ LPLT],AX 

; LPLT Ud RTLT : X1TEHP 


MOT 

(IUT],AI 



P0S1 

Cl 



NOT 

11,[LPLT] 



NOT 

CI,[1TLT] 



CALL 

I01LIIE 

; Set one pixel on T1 line 

SNLOOP: 

POP 

AI 

; Loop to set one pixel on 


POP 

DX 

; each line fron yl+l to p3 


CMP 

AX,0 

; thus draning a vertical line 


JA 

III 



JMP 

PTREIIT 


IHI: 

DEC 

AX 



1IC 

DX 



HOT 

[TCO!R],DX 



PDSB 

DX 



POSH 

AX 



HOT 

EX,[LPLT] 



HOT 

CX,[RTLT] 



CALL 

HORLIIE 



JMP 

SHLOOP 


80RIZ12: 

; TIE LIKE 

1 *3 IS TIE LEPT BORDER OP TIE TRI RIGHT BORDER 


; IS POIMED BT LIME 2 - 3 



HOT 

AX.OPPSET TERTICAL12 ; This routine will return 


HOT 

R0UTIIE12,AX 

; X2 as right liiit 


HOT 

AX,2 



HOT 

[I0RIZII12],AZ 



HOT 

[SL0PE12],2 

; Set Slope Code to horixontal 


MOT 

[P1RST12] ,0 

; Set Code for Pirstl2 to Palse 

START23: 

NOT 

AX, SI ; 

AX :: 13 


MOT 

11,1 



SOB 

AI.DI ; 

AX := 13 - X2 = DX23 


JZ 

TERT23 ; 

JOHP IP LIIE PROM 2 TO 3 IS TERTICAL 


JI3 

POJ ; 

JUMP IP POSITITE 


110 

AX 



IEG 

Bi ; 

MAKE IORIZ IICS POR LIIE 2 - 3 IEGATITE 

POJ: 

MOT 

[HORIZ!I23],BX 



MOT 

BX,[T2T1HP] 
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HOT CX,[T3TBNP] 

SOB CX,BX ; Cl = 0123 

NOT [C00ITKX2],CX 

JI 1011X23 ; 2 * 3 IS lORIIOITAl 

CXP CX.U 

JI P10 ; D! < DX LOS SLOPE 

XCIG IX, CX ; EICHUGE 0! UD DX 

NOT BL,01 

MOT [SLOPB23] t BL ; Set code for high slope 

NOT BX,OFFSET BISLOP123 

NOT BOOT1II23.BX ; Set IOOTIIX23 to EISLOPE23 

JNP P10ALT 


NOT BL,0 

HOT [SLOPE23],BL ; Set code for LOR slope 

HOT BX,OFFSET LORSLOPE23 

NOT ROOTIIE23,BI 

F10&LT: SIL CX,1 ; CX := 2 * DT 

NOT [M1IIC23],CX ; IICR 1 FOR 2 - 3 1 2 * DI 

SOB CI.BI 

NOT [0123],CX ; DI13 := <2 * DI) - DX 

SOB CX,U ; CX := 2*(DT • DX) 

NOT [T&R2IIC23],CX ; T1R2IIC23 := 2*(DT-DX) 

JNP DOIE23 

TERT23: XOR BX.BI ; HIE FROM 2 TO 3 IS TERTICU 

NOT [BORIZII23],BX ; BORIS IICR = 0 

NOT DX,OFFSET TERTICRL23 

NOT ROOTIIE23.DX 

NOT [SLOPE23],3 ; Set Slope Code for Tertical 

NOT BX,[I2TEMP] 

NOT CX,[T3TENP] 

SOB CX,BX ; CX -- DT23 

NOT [C00ITER2],CX 

JNP DOIE23 

IORIX23: 

NOT DX,OFFSET BORIIOITBL23 

NOT ROOTIIE23,DX 

MOT [SLOPE23],2 ; Set Slope Code For loriiontal 

DOIE23: 

NOT !L,[S10PE12] 

NOT BL,[SL0PE13] 

CMP 1L,0 

JI POSSPECCBSE ; JONP to this libel to check for 

; a possible special case 

NOT [SPECCBSE],0 ; Otherwise set special case to False 

CMP Rl,0 ; Check to see if Lise 1 - 2 is 
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3! 

SETLAST12 


JNP 

C1ECK23 

POSSPICChSI: NOT 

[SFECCASE ,1 


CNF 

AL ,0 ; 


J! 

COITCK ; 


CNF 

AL, 2 ; 


JIX 

SETLAST13 ; 


NOT 

[F1RST13] 1 ! 


JNP 

C1ICK23 

COIfCl: 

NOT 

AX r [101IXII13] 


NOT 

IX,[1011X1112] 


CNF 

IX, IX 


JX 

II1C10IEL0B 


CALL 

L0NSL0PE12 


HOT 

BX,[10SIXII12] 


SUB 

AX.BX 


NOT 

[RTLT],AX 


NOV 

[SFECCASE],0 


MOT 

[F1RST121,0 

SITL&ST13: 

CALL 

L08SL0PE13 


NOT 

BX,[1011X1113] 


SUB 

IX,BX 


NOT 

[LFLT],AX 


NOT 

[FIRST13],0 


JNP 

CBECR23 

SETL&ST12: 

CUL 

L0KL0FE12 


NOT 

BX,[10RIZIR12] 


SUB 

11,IX 


NOT 

[RTLT],AX 


NOT 

[FIRST12],0 


JNF 

CHECK23 


IBICHOIELON: 

NOT 

CX,[TAR21RC13] 

NOT 

Al,[TAI1IIC13] 

NOT 

BX.AX 

BUB 

IX, CX 

NOT 

CX,[T1R1IIC12] 

NUL 

CX 

NOT 

[L0US1],1X 

NOT 

[IIAVS1],DX 

NOT 

u.cx 

NOT 

CX,[TAR2IIC12] 

SUB 

IX, CX 


; 1 owl ope. 1! 1 owl ope then imp 
; go check line 2 - 3 


If both linen ire loislope jnp 

to continue checks 

check to see if l - 2 is horisontil 

jnip if sot horisontil 

set first!3 to trne 


; coipire horisontil iscreients 
; jnip if both lines ire going the 
; the sue direction 


; Steps to set routine tor 1 - 2 
; to list 


; Steps to set routine for 1 - 3 
; to list 


; Steps to set r 


; HAKE COP! OF V&K1IIC13 


; NOT! T111IIC12 TO U 
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MOV 

BX, [BI&1S1] 


CMP 

11,SI 


j: 

IOUSRER 


16 

LORIRIS12 


JL 

LORERIS13 


ROT 

[PIIST13] ,0 


MOV 

[FIRST12], 1 


IMP 

SETL&ST13 

IOUSRER: 

MOT 

BZ,[LO&IS1] 


OR 

BUI 


IS 

POSIEGCASE 


OR 

11,U 


JS 

LORERIS13 


CMP 

11,11 


1L 

LORER1S13 


IE 

DI&GLIIE 

LORERIS12: 

NOT 

[PIRST13],0 


MOT 

[PIRST12],1 


JMP 

SETL&ST13 

LOHERIS13: 

MOT 

[F1RST13],1 


JMP 

SETLAST12 

DI&GLIIE: 

CILL 

LORSLOPE13 


MOT 

BZ,[10RIZIII 3 ] 


SOB 

11,11 


NOT 

[LFLT],&X 


NOT 

[FIRSTI3] ,0 


NOT 

[F1BST12],1 


NOT 

[L&ST23],0 


JMP 

ST&RTDR&H 

POSIEGCISE: 

OR 

&I.&1 


JIS 

LORERIS12 


CMP 

IX, BZ 


JG 

LORERIS13 


JE 

OUGLIIE 


MOT 

[FIRST13],0 


MOT 

[instill, 1 


JMP 

SETL&ST13 

CIECI23: 

NOT 

[L&ST23], 0 


MOT 

1L,[SLOPE23] 


CMP 

11,0 


JIX 

STUTDR1R 


MOT 

IL,[SPECCA5E] 


CMP 

11,1 


JIZ 

ST1IT6I1R 
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MOV 

MOV 

CMP 

JIX 

MOV 

CMP 

HI 

CALL 

MOV 

SOI 

MOV 

MOV 


; DEAR TKIA1GLE 
STARTDRAH: 

MOV 

CMP 

II 

POSH 

MOV 

NOV 

CALL 

POP 

DEC 

CMP 

n 

LOOP29: 

MOV 

IIC 

MOV 

idea: POSH 

CALL 
CALL 
MOV 
MOV 
CALL 
POP 
loop 

SECOIDHALFIIC: 

MOV 

CMP 

JE 

MOV 

IIC 

NOV 

CALL 

MOV 


AX,[I0IIXII13] 
BI,[101111123] 
A2,BI 
STA1TDRAI 
AL,[PIRST13] 
AL,1 

STARTDRAH 
LOMSLOPE23 
BX,[BOKIIII23] 

AX, BX 

[BTLTALT], AX 
[LAST23],1 


CX, [ COOKER 1] 
CX,0 

SECOIDHALF 

CX 

BX,[LPLT] 

CX.IRTLT] 

HORLIIE 

CX 

CX 

CX,0 

SECOIDHALFIIC 


AX,[ICORR] 
AX 

[TCORR],AX 
CX 

R00TIIE13 
ROOTIIEI2 
BX,[LPLT] 
CX,[RTLT] 
HORLIIE 
CX 

loop29 


CX,[C0DITER2] 
CX,0 

LASTLIIESP 
AX,[TCOII] 

AX 

[TCORR],AX 
R00TIIE13 
BL,[PIRST12] 






CMP 

BL,0 


JX 

SECOIDBALF 


CALL 

ROOTIIE12 


MOV 

CX,[RTLT] 


JMP 

SECSKIP 

SECOIDBALF: 


MOV 

CI,[ITLTALT] 

SECSKIP: 

MOV 

BX,[LFLT] 


CALL 

IORLIIE 


MOV 

CX,[COOITBR2] 


DEC 

CX 


JZ 

LASTL11E 


JIB 

LOOP30 


JMP 

FTREXIT 


LOOP30: POSH Cl 

MOP &Z,[TCDRR] 

IIC AX 

MOV [TCORR],AX 

CALL ROOTIKE13 

CALL ROOTIIE23 

MOV BX,[LFLT] 

MOV Cl,[RTLTALT] 

CALL IORLIIE 

POP CX 

LOOP LOOP3Q 


LASTLIIK: MOV AX,[TCORR] 

IIC AI 

MOV [ICORR],AX 

MOV BL,[PIRST13] 

CMP BU 

3IZ TBISCASE 

CALL ROOTIIE13 

JMP OTHERLIKE 


LA8TLIIESP: MOV AX,[TCORR] 

IIC AX 

MOV [TCORR],AX 

MOV BL,[FIRST13] 

CMP BL,I 

JIX TIISCASESP 

CALL ROOTIIE13 

JMP OTBERLIIISP 


TIISCASESP: MOV 

AX,[I3TEMP] 

MOV 

[LFLT],AX 

MOV 

BL,[SLOPEI2] 







CMP 

BL ,0 


JIZ 

ORAiLAST 


MO? 

BL,[PIRST12 ] 


CMP 

BL ,1 


JIZ 

ORAILAST 


CALL 

R00TIIE12 


JMP 

DRAILASTSP 

0TH8RLIIESP: MO? 

BZ,[Z2TEMP] 


CMP 

[RTLTJ.BX 

DRANLASTSP: 

MO? 

BX,[LPLT] 


MO? 

CI,[RTLT] 


CALL 

IORLIIE 


JMP 

PTREXIT 

THISCASE: 

HO? 

AX,[I3TEMP] 


NO? 

[LPLT],AX 

OT1ERLIIE: 

MO? 

BL,[LAST23] 


CMP 

BL ,1 


JIZ 

OTHERCASE 


MO? 

BX,[X3TEMP] 


HO? 

[RTLTALT],BX 


JMP 

ORAILAST 

OTBERChSE: 

CALL 

R00T1K23 

DRARL&ST: 

MO? 

BZ,[LPLT] 


MO? 

CX,[RTLTALT] 


CELL 

HORLIME 


FTREXIT: POP 01 

POP SI 


PillTri EIDP 

PillTriC PROC xl:IORD,7l:IORD,x2:IORO,i2:IORD,x3:IORD,y3:word, n:BTTB, o:byte,Rinibits:BYTE 
PUBLIC PillTriC 

; This routine fills triangles that need to be clipped to fit inside the window 
; It is very siiilar to PillTri except it checks to lake sure the pixel is inside 
; the window before it sets its color. 

; Order values so that T1 is T tin and T3 is I tax 
POSE SI 

POSE 01 


114 







; Set fill color for this liie uiig color code 



MOT 

1L,I ; 1L 

:* fill color* 4 ********** 


MOT 

[COLOB],&L ; Color * fill color****** 4 **** 


10! 

[C010R1],11 



10! 

u.o 



10! 

[C0L0I2],ll 



C1LL 

COIPIGGRIPH 



IOI 

SUL 



10! 

[SL0PE13],LL 

Set all slopes equal to xero 


10! 

[SL0PE12],AL 



10! 

[SLOPE23],BL 



10! 

11,11 

Move all III values to 


10! 

11,12 

to processor registers before 


10! 

Cl, 13 

beginning sort. 


10! 

01,11 

Takes are sorted iron lowest to 


10! 

DI,I2 

highest I values. If T values are 


10! 

SI,13 

sane then sort bf lowest X value. 


C1P 

11,81 

BEGIR SORT 


JE 

P01C 

IEEO TO CHECK TO ORDER B! X TILDES 


JUS 

P02C 

REED TO REORDER 

IEITC: 

C1P 

BI.CX 



JE 

P03C 

REED TO CHECK TO ORDER BY X TILDES 


JIS 

P04C 

IEEO TO REORDER 


JNP 

OIDEREDC 


P01C: 

CMP 

DUX 



JUS 

IEITC ; ORDER IS OKI! IP XI - 12 <= 0 ELSE GO 



; TO P02 

P02C: 

ICBG 

IX,IX ; Exchisge X end T nines 


ICHG 

DX.D1 



JMP 

IEITC ; Go back and start on point T«o. 

F03C: 

CMP 

81,01 



JIS 

ORDEREDC ; ORDER IS OKU IP 12 - X3 <= 0 ILSE GO 



; TO P04 

P04C: 

ICHG 

BI,CX ; Exchange X and I values 


ICBG 

II,SI 



CMP 

IX,BX 



JE 

K1TCIECKC 



JIS 

REORDERC 



JMP 

ORDEREDC 


1LTCHECKC: 

CMP 

DI.DX 



JIS 

OIDEREDC 


REORDERC: 

ICIG 

IX,BX ; Exchange I and T values 


ICBG 

DX.DI 



OIDEREDC: 
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m 

[iwnH.ix ; 

itu the Correctly ordered 


NOT 

[T2TBXP],BI ; 

X ud I Tilues 


HOI 

[T3TBNF],CX 



NOT 

[Z1TBXP],DZ 



NOT 

[Z2TKNP],DI 



NOT 

[Z3TENP], SI 



NOT 

[LFLT], DZ ; 

Initialise left Unit, right Unit 


NOT 

[RTLT],DI ; 

right liait alternate, tod I current 


NOT 

[BTLT&LT],DI 



NOT 

[TCORR],AI 



NOT 

U,SI ; 

ll r- X3 


NOT 

IX, 1 



SOI 

U,DX ; 

BX := X3 - XI = 0X13 


j: 

VERT13C ; 

JONP IF LIRE FRON 1 TO 3 IS VERTICIL 


JIS 

P05C ; 

JUMP IF POSITIVE 


PEG 

U 



IEG 

BX ; 

mi BOR1Z IICR FOR LIRE 1-3 IEGRTIVE 

F05C: 

NOV 

[HORIZII13],BX 



NOT 

BX,[T1TEMPj 



NOV 

CX,[T3TEMP ] 



SOB 

CX,BI 

; CX • DT13 


JZ 

EORIZ13C 



CMP 

cx.&x 



JL 

F06C 

; DT < 01 LOR SLOPE 


XCHG 

II,Cl 

; EXCB&IGE DT UD DX 


NOV 

BL.01 



NOV 

[SLOPE13],BL 

; Set code for high slope 


NOV 

BX,OFFSET IISLOPB13 


NOV 

ROUTIBE13,BX 

; Set Routines to IISL0PE13 


NOT 

[FIRST13],0 

; Set Firstl3 to False 


JHP 

FOSBLTC 


F06C: 

NOV 

BL,0 



NOV 

[SL0PE13],BL 

; Set code for LOR slope 


NO V 

BX,OFFSET LORSLOPE13 


NOT 

I00TIIE13.BX 


F06ALTC: 

SEL 

Cl, I 

; CX := 2 * DI 


NOV 

[minci3],cx 

; IICR 1 FOR 1 - 3 = 2 * DT 


SOB 

Cl,IX 



NOV 

[0113],CX 

; 0113 := (2 * DT) - DX 


SOB 

Cl,IX 

; CX 2*{DI - DX) 


NOT 

[TIR2IIC13], CX 

; V1R2IIC13 := 2*(DI-DX) 


JHP 

ST1RT12C 


VERT13C: 

ZOB 

BX, BX 

; LINE FROM 1 TO 3 IS VERTICAL 
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MOV 

[IORIKII13] f BE ; IORIX IICR * 0 


MOV 

II,OFFSET TEKTIC&L13 


HOT 

ROOTIIE13,IX 


MOT 

[SLOPE13],3 ; Set Slope Code : 3 


HOT 

[FIISTI3],0 ; Set Firstl3 to False 


JIP 

STUT12C 

10BII13C: 

; UL THREE POUTS UE IORIXOIT1L DIM LIRE PROM 1 - 3 


MOT 

HI,[T1TEMP] 


MOT 

OX,TIT 


CMP 

1I,DI 


IS 

IOGO 


MOT 

01,11! 


CMP 

11,01 


IIS 

IOGO 


MOT 

[IC0RR],1X ; TCORI = T1TIMP 


NOT 

BX,[X1TEMP] 


MOT 

CX,[X3TEMP] 


CMP 

IX, Cl 


IS 

IOCI1IGE35 


ICHG 

IX,Cl 

IOC11IGE35: 

MOT 

OX,TLX 


CMP 

BX,DX 


IIS 

ILLRIGIT29 


HOT 

BX.DX 

1LLRIGIT29: 

MOT 

IX,BIX 


CMP 

11,IX 


IIS 

IOPROBO 


IMP 

FTREXITC 

IOPROBO: 

CMP 

IX,cx 


IIS 

1LLR1GIT30 


MOT 

CX,1X 

1LLR1GHT30: 

CMP 

Cl, ox 


IIS 

G01IE1D0 


IMP 

FTREXITC 

GO&BE&DO: 

CALL 

IORLIIE 

IOGO: 

IMP 

FTREXITC 


ST1RT12C: 

MOT 

11,01 

; IX := 12 

MOT 

IX,I 

; BX ; loriiontal Increient 

MOT 

OX,[X1TEMP] 


SOB 

IX,OX 

; IX X2 - XI = 0X12 

IX 

TERT12C 

; IONP IF HIE FROM 1 TO 2 IS TERTIC1L 

IIS 

F07C 

; IOMP IF POSITIVE 
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IEG 

II 


IEG 

BI ; HUE BORIS IICR FOR LIME 1-2 IEGITITE 

F07C: 

HOT 

[IORIXII12],BI 


HOT 

BX,[T1TEMP] 


IOV 

CX,[X2TEMP] 


SOI 

CI,BX ; CX = DI12 


IOT 

[COOITIRlJ.CX 


JII 

INC 


IIP 

I0R1X12C 

INC: 

CMP 

cx,ix 


JL 

rote ; 0! < OX LOI SLOPE 


XCIG 

IX,CX ; EXC1UGE 01 UD OX 


MOV 

11,01 


MOT 

[SLOPB12],BL ; Set code for high slope 


MOT 

BX,OFFSET 1ISLOPE12 


MOT 

ROOTIVE12,BX 


MOT 

[PIRST12],0 


JMP 

F08ILTC 

rote. 


MOT 

BL ,0 


HOT 

[SLOPE12],BL ; Set code for LOR slope 


MOT 

II,OFFSET LNSLOPE12 


MOT 

ROOT1IE12.BX 

F08&LTC: 

SHL 

CX,1 ; CX := 2 * 0! 


MOT 

[T&R1IIC12],CX ; IICR 1 FOR 1 - 2 = 2 * DY 


SOB 

CX f IX 


MOV 

[0112],CX ; 0112 := (2 * 0!) - OX 


SOB 

Cl,IX ; CX :=2*(DY - OX) 


MOT 

[T&R2IIC12],CX ; T&R2IXC12 2*(DI-DX) 


JMP 

START23C 

TERT12C: 

IOR 

BX,BX ; LIRE FROM 1 TO 2 IS TERTICIL 


MOT 

[BORIZII121,BX ; EORIZ IICR = 0 


MOT 

XX,[IORIZII13] 


CMP 

IX,BX 


JZ 

BOTITERTC ; 1 - 3 IID 1 - 2 IRE TERTICIL 


MOT 

BI,OFFSET TERTICIL12 


MOT 

90DTIBE12,BX 


MOT 

IX,[T1TEMP] 


MOT 

CX,[I2TXMPj 


SOB 

CX.BX ; Cl : 0112 


MOT 

[COOITER1],CX ; Connterl = I2-T1 


NOT 

[SLOPE12],03 ; Set Slope Code ? 3 


MOT 

[FIRST12j,0 ; Set Firstl2 to False 


JMP 

STIRT23C 

BOTITERTC: 


MOT 

IX,[I1TEMP] 


MOT 

CX,[T3TEMP] 
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MPtOIIV: 


I0P10BIT2: 


I0PI011V3: 


IOPROBBT4: 


SNLOOPC: 


NIC: 


I01IZ12C: 


I0T 

DX.TLT 


cnp 

11,DX 


JIS 

IOPIOBIV 


HOT 

11,DX 


lOf 

OX, BIT 


as 

DI,CX 


ni 

I0P10BBV2 


HOT 

CX,DX 


lot 

[TC0I1],1I 

; ICOU = T1TKMP 

Ml 

CX, IX 

; ISTMLISI COOITEt 

rail 

u 

; SAVE 11 

NOV 

IX,[X1TBMP] 


MOV 

DX,TLX 


CMP 

IX,DI 


ns 

I0PI01BV3 


POP 

U 


np 

PTIIXITC 


MOV 

OX,BIX 


CMP 

DX,1X 


ns 

I0PI08BV4 


POP 

U 


JMP 

PTIUITC 


MOV 

[LFIT],U 

; LPLT tnd ITLT = X1TEMP 

MOV 

[ITLT],U 


POSI 

CX 


MOV 

IX,[LPLT] 


NOV 

CX,[BTLT] 


CILL 

IOILIIE 

; Sit oil pixel n 11 line 

POP 

IX 

; Loop to set obi pixel ob 

POP 

DX 

; neb line froi pl*l to p3 

CMP 

IX,0 

; thus druio; i vertical lioe 

M 

me 


n? 

mniTc 


DIC 

u 


lie 

DX 


MOV 

[ICOIIl.DX 


POSI 

DX 


POSI 

IX 


MOV 

1X,[LPLT] 


MOV 

CX.llTLT] 


CILL 

IOILIIE 


np 

SMLOOPC 


; TIE LIII 

1 -3 IS TIE LIFT B0KDE1 OP Til Til IIGIT BOIDER 
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; IS POIMSD I! LIU 2 - 3 

I0T U,OFFSET TUTIC1LI2 ; This routine till return 

HOV BODTIII12.&Z ; X2 as right lieit 

HO! 11,2 

HOT [I01IXII12 ], &X 

10? [SL0PC12],2 ; Set Slope Code to horitontal 

10? [PI1ST12],0 ; Set Code for Firstl2 to False 

STUT23C: 

10? IX,SI ; IX :: X3 

10? BX,1 

SOI 11,91 ; AI := 13 - 12 = 9X23 

31 ?IKT23C ; JUMP IF LIU FIOX 2 TO 3 IS ?IITIC1L 

JIS FOfC ; JUMP IF FOSITI?! 

HO IX 

UG U ; MIX! BORIS IICR FOX LIIE 2 - 3 IIG1TIFE 

F09C: 10? [HORISII23],BX 

10? BX,[T2TKNP] 

10? CX,[T3TBMP] 

SOB CI,BX ; CX : 9123 

10? [C00ITER2],CX 

JX BORIZ23C ; 2 - 3 IS H0R1X0IT1L 

CMP CX.1X 

JL F10C ) 9! < OX LOR SLOPE 

XCBG IX,CX ; EXCH1RGE 91 119 DX 

10? BL,01 

10? [SLQPE23],BL ; Set code for high slope 

10? BX,OFFSET BISLOPE23 

10? ROO?IH23,BX ; Set ROOTIH23 to BISLOPE23 

JMP P101LTC 

FIOC: 

10? BL ,0 

10? [SlOPE23],Bl ; Set code tor LOR slope 

10? BX,OFFSET LORSLOPE23 

10? ROOTIRE23,BX 

F101LTC: SBL CX,1 ; CX := 2 * 01 

10? [?iliIIC23],CX ; IICR 1 FOR 2 - 3 = 2 * 91 

SOI CX,1I 

10? [9123],CX ; 0113 := (2 * 9!) - 91 

SOB CX,1X ; CX :: 2*(DI * OX) 

10? [?1R2IIC23],CX ; V&R2IIC23 := 2*(DT-0X) 

JMP DOH23C 

?ERT23C: IOR II,BX ; LIU FROM 2 TO 3 IS VERTICAL 

10? [BORIZII23],BX ; BORIS IICR « 0 

10? 01,OFFSET ?ERTIC1123 

10? ROOTIIE23,DX 

10? [SLOPE23],3 ; Set Slope Code for ?ertical 
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IORIZ23C: 


DOIE23C: 


POSSPECCESEC; 


COITCKC: 


8ETLEST13C: 


3ETL&ST12C: 


NOT 

BE,[T2TENP] 


NOT 

CE,[I3TEHPj 


SOB 

CI.BI 

; CE = 0T23 

NOT 

[COUNTER2],Cl 


JNP 

DOIE23C 


NOT 

01,OFFSET BORIZ0ITEL23 

NOT 

ROOTIIE23 DX 


NOT 

[SL0PE2 3] 2 

; Set Slope Code For loritonttl 

NOT 

EL,[SL0PE12] 


NOT 

BL,[SL0PE13] 


CNP 

11,0 


IS 

POSSPECCESEC 

; JOHP to this libel to cheek for 
; a possible specitl case 

NOT 

[SPECCASE],0 

; Otheruise set special case to False 

CNP 

EL ,0 

; Check to see if Line 1 - 2 is 

JZ 

SETLEST12C 

; loislope. If loeslope then jimp 

JNP 

CHECK23C 

; so check line 2 - 3 

NOV 

[SPECC&SE],1 


CNP 

EL,0 ; 

If both lines are loislope juap 

JZ 

COITCKC ; 

to continue checks 

CNP 

EL,2 ; 

check to see if 1 - 2 is horiiontal 

JIZ 

SETLEST13C ; 

jup if not horiiontal 

NOT 

[FIRST13] 1 ; 

set firstl3 to true 

JNP 

CHECK23C 


NOV 

EX,[BORIZIR13] 

; cotpare horiiontal increments 

HOT 

BI,[E0R1Z1I12] 

; juip if both lines are going the 

CNP 

EX ,BI 

; the sue direction 

JZ 

HBICHOIELONC 


CELL 

LONSLOPE12 

; Steps to set routine for 1 - 2 

NOT 

BX,[10RIZII12] 

; to last 

SOB 

EE,BE 


NOT 

[ITLT],EE 


NOT 

[SPECC&SE],0 


NOT 

[PIIST12] 0 


CEIL 

L0RSL0PE13 

; Steps to set routine for 1 - 3 

NOT 

BE,[B0RIZ1I13] 

; to last 

SOB 

EE,BE 


NOT 

[LPLT],EE 


NOT 

[PIRST13] 0 


JNP 

CIECK23C 


CEIL 

LORSLOPE12 

; Steps to set r 
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MOV 

■Z,[IOIIZII12] 

SOI 

AX, II 

NO? 

{MW], AX 

MOV 

[PIK3T12],0 

jnp 

CHECK23C 


niCIOIELOVC: 



MOV 

CI,[VAI2IIC13] 


NOT 

AZ,[TAR1IIC13] 


NOT 

II,AX 


SOI 

AI,CX 


NOT 

CX,[TAR1IIC12] 


MOL 

CX 


NOT 

[LOAIS1],AX 


NOT 

[HIAKS1],DX 


NOV 

AX, Cl 


NOT 

CX,[TAR21IC12] 


SOI 

AX, CX 


NOL 

II 


NOT 

II,[HIAIS1] 


CNP 

IX,ox 


JI 

IOAISIERC 


JG 

LOVERIS12C 


JL 

LOHERIS13C 


NOT 

[PIRST13],0 


NOT 

[PI1ST12],1 


INF 

SETLAST13C 

IOAISRERC: 

NOT 

BX,[LOAIS1] 


OR 

II,IX 


IS 

POSIEGCASEC 


OR 

AX, AX 


JS 

LONERIS13C 


CNP 

11,AX 


JL 

LONERIS13C 


JE 

DIAGLIIEC 

LOREI1S12C: 

NOT 

[FIE3T13] ,0 


NOT 

[P1RST12],1 


JNP 

SETLAST13C 

LOHEKIS13C: 

NOT 

[PIRST13],1 


JNP 

SETLAST12C 

DIAGLIIEC: 

CALL 

LOVSLOPI13 


HOT 

11,(1011X1113] 


SOI 

AI,1X 


NOT 

(LPLTj.AX 


HOT 

[PIR8T13],0 


; MAKE COP! OP TAR1IIC13 


; MOVE VAR1IIC12 TO AX 
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MO? 

107 

imp 

POSIEGC&SEC: 01 
IIS 
CMP 
16 
J1 
10? 
10? 
IMP 

C1ECK23C: MO? 

MO? 

CMP 

II! 

MO? 

CMP 

11! 

MO? 

MO? 

CMP 

JI! 

MO? 

CMP 

11! 

CELL 

MO? 

SOB 

NO? 

NO? 


[PIIST12],1 
[LEST23],0 
STUTDRUC 

IX, IX 
L0BEEIS12C 
IX,IX 

loraisuc 

DIAGLIIEC 
[PI1ST13],0 
[FI1ST12],1 
SETLBST13C 

[LEST23],0 
BL,[SLOPE23] 
11,0 

STilTDRMC 
BL, [SPECCESE] 

H, i 

STE1TDREBC 
EX,[H01IIII13] 
BX,[BORI1II23] 
II,IX 
STE1TD1EHC 
EL,[PIIST13] 

EL ,1 

STilTDRMC 
L0SSL0PE2 3 
BI,[101I!II23] 

EX, BI 

[1TLTELT],EX 

[LEST23],1 


; Dili TRIEIGLE 
STERTDREWC: 

MO? CX,[C00ITER1] 

CMP CX.O 

1! G0SEC0ID1ELPC 

POSE CX 

MO? H,[YC011] 

MO? DI.TLI 

CMP IX,SI 

IS IB07ET0P 

NO? BX,[lfLT] 

MO? Cl,[mT] 

CMP CX,IX 

IIS OKU) 

XC16 IX,CX 
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OU!): 

HOT 

u, nx 


10! 

01,111 


CMP 

IX,IX 


JIS 

OUIIO ; JUMP IP LIP? LIMIT IS IIGIT OP LIP? SCIIII 


CMP 

CX,IX ; LPL? IS OPP SCIIII SO CIICX TO SIS IP IIGIT 

; mi? is oi setin 


JS 

UOTITOP ; JOMP IP IIGIT LIMIT IS OPP LIP? Sill 
; OP SCIIII 


10! 

IX,IX ; SIT LPLT * LIP? B01DII 


CMP 

ox,ex 


JIS 

DIIIIT1 ; JUMP IP IIGIT LIMIT IS 01 SCIIII 


MOT 

CX,DI ; IIGIT LIMIT IS OPP HIGH SO Mill LIMIT 


JNP 

DlllITi ; EQUAL TO IIGIT OP SCIIII Till JOMP 

GOSBCOIDMLFC: 



JNP 

SICOIDIILPC 

OUT 10: 

CMP 

BX,DX ; CIICX TO SIE IP LPLT IS 01 SCIIII 


JIS 

IBOVETOF ; JOMP IP LIP? LIMIT IS OPP IIGIT SIDI 


CMP 

DX.CZ ; CIICX IT SIDE 


JIS 

DIIIIT1 ; IP ITLT IS 01 SCIIII JOMP 


MO! 

CX,DX ; CIAIG! ITLT TO IIGIT IOIDII 

DIUIT1: 

CALL 

IOILIIE 

AB0VE70P: 

POP 

CX 


DEC 

CX 


CMP 

CX,0 


Jl 

SICOIDIILPIICC 

LOOP29C: 


POSH 

CX 


CALL 

I00TIIII3 


CALL 

I00TIII12 


MO! 

IX, [icon] 


IIC 

IX 


NO! 

[TCOII],AX 


MO! 

oi, ni 


CM? 

IX,OX 


JS 

IB0TIT0P2 


NO! 

OX,SIT 


CMP 

OX, IX 


JS 

BILOWBOT 


HO! 

IX,[LPLT] 


NO! 

CX,[ITLT] 


CMP 

Cl,II 


JIS 

0K1T13 


XCIG 

IX,CX 

0RAT19: 

MO? 

IX,TLX 


NO! 

OX,III 
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CMP 

IX,u 


JIS 

OU120 ; nip IP LIP? LIMIT IS KI6IT OP LIP? SCIIII 


CMP 

ex, IX ; LPLT IS OPP sctin SO CIECX to see ip eight 



; limit is oi sain 


JS 

IB0TET0P2 ; JUMP IP IIGIT LIMIT IS OPP LEFT SIDE 



; OP SCEEU 


MOT 

IX, 11 ,‘ SIT LPLT = LIFT BOIDU 


CMP 

01 , ex 


ns 

IKUIT2 ; JIMP IP IIGIT LIMIT IS 01 SCIIII 


MOT 

CX,OX ; IIGIT LIMIT IS OPP IIGIT SO MIKE LIMIT 


JMP 

DIUIT2 ; EQ01L TO IIGIT OP SClin Till JOMP 

011120: 

CMP 

11,OX ; CIECI TO Sll IP LPLT IS 01 SCtEEI 


JIS 

U0TIT0P2 ; JOMP IP HPT LIMIT IS OPP IIGIT SIDE 


CMP 

DX,CX ; CIECX IT SIDE 


ns 

DI1IIT2 


MOT 

CX ,DX ; CIIIGE 1TLT TO IIGIT BORDER 

DI1RIT2: 

CILL 

IOILIIE 

110TET0P2: 

POP 

CX 


loop 

loop29C 

SEC0IDB1LFI1CC: 



MOT 

CX,[C00ITER2] 


CMP 

CI,0 


JE 

G0L1STLIIESPC 


CALL 

100T1IE13 


MOT 

ix. [icon] 


IIC 

u 


MOT 

[icon], ix 


MOT 

BL,[PIRST12] 


CMP 

BL, 0 


J! 

SEC0ID11LPC 


CALL 

I00TIIE12 


NOT 

CX,[ITLT] 


JMP 

SICSKIPC 

G0L1STLIIISPC: 



JMP 

L1STLIIISPC 

BELOWBOT: 

POP 

CX 

moiionopop: 



np 

PT1EXITC 

SIC0I0I1LFC: 

MOT 

CI,[ITLT1LT] 

SECSIIPC: 

MOT 

IX,[LPLT] 


MOT 

u, [icon] 


MOT 

OX,TIT 


CMP 

11,01 


125 










IS 

ABOVITOP3 


MOV 

DX.BII 


CMP 

DX.AX 


JS 

BiLononopop 


CMP 

CI.BI 


JIS 

OUT 2 9 


XCIG 

IX, ex 

OKAI29: 

MOV 

AX,TLX 


MOV 

DX.BRX 


CMP 

BUI 


JIS 

OKAT30 ; JUMP IP LIFT LIMIT IS EIGHT OP LEFT SCREEN 


CMP 

CX,AX ; LPLT IS OFF SCKEEl SO CHECK TO SEE IF RIGHT 

; LIMIT IS 01 SCREII 


JS 

AB0VET0P3 ; JOMP IF BIGHT LIMIT IS OFF LEFT SIDE 
; OF SCEEEI 


MOV 

BX,AX ; SET LFLT = LEFT BOEDER 


CMP 

DX.CX 


JIS 

DIAIIT3 ; JOMP IF EIGHT LIMIT IS OH SCEEEI 


NOV 

CI,DX ; EIGHT LIMIT IS OFF EIGHT SO MAKE LIMIT 


JMP 

DIAIIT3 ; EQUAL TO EIGHT OF SCEEEI TIEI JOMP 

OUT 30: 

CMP 

BX.DX ; CHECK TO SEE IF LFLT IS 01 SCEEEI 


JIS 

AB0VET0P3 ; JOMP IF LEFT LIMIT IS OFF BIGHT SIDE 


CMP 

DX.CX ; CHECK RT SIDE 


JIS 

DRAMIT3 ; IF RTLT IS 01 SCEEEI JOMP 


MOV 

CX.DX ; CHARGE RTLT TO RIGHT BORDER 

DRAIIT3: 

C&LL 

RORLIIE 

ABOVETOP3: 

MOV 

CX,[C0UHTER2] 


DEC 

CX 


JZ 

LASTLIIEC 


JIS 

LOOP30C 


JMP 

FTREXITC 

LOOP30C: 

POSE 

CX 


CALL 

R0UTIIE13 


CALL 

EOOTIIE23 


MOV 

AX.llCOER] 


IIC 

AX 


NOV 

[TCDRR],AX 


MOV 

DX.TLT 


CMP 

AI,DI 


JS 

AI0VET0P4 


MOV 

DI.IEI 


CMP 

DX.AX 


JS 

BEL0HB0T21 


MOV 

BX, [LFLT] 


MOV 

CI,[ETLTALT] 
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CMP 

CX,1I 



as 

OK1T3) 



ZC1G 

II,Cl 


0UI3I: 

10? 

11,TLX 



HOT 

11,111 



Cff 

IX,11 



ns 

OUI40 

MP IP LIFT LIMIT IS EIGHT OF LEFT SCREEI 


CMP 

CX,1X 

LFLT IS OFF SCEEEI SO CHECK TO SEE IF RIGHT 
LIMIT IS OH SCREEI 


IS 

UOTXTOP4 

JUMP IF RIGHT LIMIT IS OFF LEFT SIDE 

OF SCREEI 


MOT 

IX,IX 

SIT LFLT : LEFT BORDER 


CMP 

0X,CX 



as 

DR1IIT4 

JOMP IF RIGHT LIMIT IS 01 SCREEI 


MOT 

CX.OX 

RIGHT LIMIT IS OFF RIGHT SO MIKE LIMIT 


JMP 

DI1IIT4 

IQ01L TO RIGHT OF SCREEI THE! JOMP 

HLMBOT21: 

POP 

CX 



JMP 

msxiTc 


OK1I40: 

CMP 

IX, DX 

; CHECK TO SEE IF LFLT IS 01 SCREEI 


as 

1BOTETOP4 

; JOMP IF LEFT LIMIT IS OFF RIGHT SIDE 


CMP 

II,Cl 

; CHECK RT SIDE 


JIS 

DKM1T4 

; IF RTLT IS 01 SCREEI JOMP 


NOT 

Cl, IX 

; CUIGE RTLT TO RIGHT BORDER 

DR1MIT4: 

cm 

HORLIIE 


ABOTETOP4: 

POP 

CX 



LOOP 

LOOP30C 



L1STLIIEC: 

MOT 

1X,[TC0RR] 


IIC 

IX 


MOT 

[TCORRMI 


MOT 

DI.IRT 


CMP 

DX,1X 


JS 

BELOMBOT20 


MOT 

1L,(?1RST13] 


CMP 

11,1 


JX 

FIXIT10C 


JMP 

THISC1SEC 

FIXIT10C: 

C1LL 

100TIIE13 


JMP 

OTIERLIIEC 

BEL0MOT20: 

JMP 

FTREXITC 

L1STL1HESPC: 

MOT 

IX,[TCORR] 


IIC 

11 


MOT 

[IC0RR],1X 


MOT 

DX,1RT 
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CMP DI,U 

IS BIL0HB0T2 

MOT BL,[FIBST13] 

CMP BL,1 

JIZ THISC&SBSPC 

CALL XOOT1BE13 

JMP OTIE1LIIESPC 

TBISC1SBSPC: NOT AI,[X3TEMP] 

MOT [LFLT],AX 

MOT BL»[SLOPE12] 

CMP BL,0 

JIZ DRAILASTC 

MOT BI«,[PIRST12] 

CMP BL,1 

JIZ DRAILASTC 

CALL 100TIVE12 

JMP DRAILASTSPC 


OTHEILIIESPC: 

MOT BX,[X2TEMP] 

CMP [RTLT],BZ 

DRARLASTSPC: 

MOT BZ,[LPLT] 

MOT CX,[RTLT] 

CMP CX,BX 

J1S OKAI49 

ZC8G BX,CX 


OUT49: 


OKAT50: 


ORAI1T5: 


HOT 

AX,TLX 


NOT 

DX.BRX 


CMP 

BX.AX 


JIS 

OUT 50 

JUMP IF LEFT LIMIT IS RIGBT OF LEFT SCREEN 

CMP 

CX.AX 

LFLT IS OFF SCREEI SO CHECK TO SEE IF RIGHT 
LIMIT IS 01 SCREEI 

JS 

BEL0IB0T2 

JUMP IF RIGHT LIMIT IS OFF LEFT SIDE 

OF SCREEN 

MOT 

BX.AX 

SET LFLT = LIFT BORDER 

CMP 

DX.CX 


JIS 

DRAIIT5 

JUMP IF RIGHT LIMIT IS 01 SCREEI 

NOT 

CX.DX 

RIGHT LIMIT IS OFF RIGBT SO MAKE LIMIT 

JMP 

DRAIITS 

EQUAL TO RIGBT OF SCREEI TBEI JOMP 

CMP 

BX.OX 

; CHECK TO SEE IF LFLT IS 01 SCREEI 

JIS 

BEL0BB0T2 

; JOMP IF LIFT LIMIT IS OFF RIGHT SIDE 

CMP 

DX.CX 

; CHECK RT SIDE 

JIS 

DIAIIT5 

; IF RTLT IS 01 SCREEI JOMP 

MOT 

CX.DX 

; CRAIGE RTLT TO RIGHT BORDER 

CALI 

BORLIRE 
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BELOIBOT2: 

IMP 

FTREXITC 


THISC1SEC: 

MOV 

&X,[X3TENP] 



MOV 

[LFLTl.&l 


OTHEELIIBC: 

MOV 

BL,[L1ST23] 



CMP 

BL , 1 



JII 

OTBERC&SEC 



MOV 

BX,[X3TEMP] 



MOV 

[RTLT&LT],BX 


IMP 

DI&IL&STC 


OTIEICISEC: CELL 

ROOTIIE23 


DI&HL&STC: 

MOV 

BX,[LFLT] 



NOV 

CX,[RTLT&LT] 


CMP 

CX,BX 



IIS 

ORAT59 



XCBG 

BX,CX 


OK&T59: 

MOV 

&X.TLX 



MOV 

DX.BRX 



CMP 

BX , AX 



JRS 

OUT60 ; 

IOMP IF LEFT LIMIT IS RIGIT OF LEFT SCREE! 


CMP 

CX.iX ; 

LFLT IS OFF SCREEI SO CIECK TO SEE IF RIGIT 



« 

t 

LIMIT IS OR SCREEI 


IS 

FTREXITC ; JUMP IF RIGIT LIMIT IS OFF LEFT SIDE 



« 

9 

OF SCREEI 


MOV 

bx.&x ; 

SET LFLT = LEFT BORDER 


CMP 

DX,CX 



IIS 

OR&MITi ; 

1QHP IF RIGET LIMIT IS 01 SCREEI 


MOV 

CI.DI ; 

RIGBT LIMIT IS OFF RIGBT SO N&KE LIMIT 


IMP 

DR&MIT6 ; 

IQO&L TO RIGIT OF SCREEI Till JUMP 

OR&YiO: 

CMP 

BX, DX 

; CHECK TO SEE IF LFLT IS 01 SCREEI 


IIS 

FTREXITC 

; JUMP IF LEFT LIMIT IS OFF RIGIT SIDE 


CMP 

DX,CI 

; CIECK RT SIDE 


IIS 

DR&IITi 

; IF RTLT IS 01 SCREEI JUMP 


MOV 

CX, DX 

; CB&IGE RTLT TO RIGIT BORDER 

DR&MIT6: 

C&LL 

IORLIIE 


FTREXITC: 

POP 

DI 



POP 

81 



RET 



PilltriC 

HOP 



Restore PROC 




PUBLIC Restore 
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; Restores default graphics contoller state and returns to caller 


r 


> 


XOR 

AX,AX 

•e 

•-* 

so 

3 

OCT 

DI, AX 

; restore Set/leset Register 

INC 

AI 

; AN := 0, AL :: 1 

OCT 

DX, AX 

; restore Inable/leset Register 

NOT 

AL, 3 

i AI *• 0, AL I* 3 

OCT 

DX, AX 

; AL :: DataRotate/Func Select i 

NOT 

AX.OFFOth 

; AB :* 11111111b, AL 1 

OOT 

DX, AX 

; restore Bit Nash register 


RET 

Restore IIDP 


Filllindov PROC FillColor:bytets:Bjte 
PUBLIC PillNiudou 

; This routine fills a eindou determined by TLT, TLX, BRT, BRX with 
; the color set by the variable Fillcolor. The RNIbits variable sets 
; sets the controller to OR, XOR, or AID Logic the filling to the pixel 
; color that is already set. 

; preserve SI A DI 

POSH SI 

POSH DI 

; routine for Horixontal lines (slope : 0) 

NOT AL,FILLCOLOR 

NOT [COLOR],IL 

CALL COIFIGGRAPH 

NOT AX,TLT 

NOT BI'BR! 

SOB II,AX ;lstablish counter 

ADD BX,1 

NOT [COOITER1],BX ;SATE COOITER 

NOT II,TLX 

•ov cx,IRX 

mv [lfltl],bx 

mv [rtltlj,cx 

CALI FIXILADDR ; AI Bit Nash 

; ES:BX •> video buffer 

; Cl :* I bits to shift left 
NOT DI.BX ; ES:DI -> video buffer 
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SO? 

DI,U 

; DI :* lit task for first byte 

I0T 

01 

; DI :: reverse bit usk for first byte 

8IL 

SI,Cl 


I0T 

SI 

; DI :: bit task for first byte 

NOT 

CX,(1!L!1] 


US 

CL,7 


zos 

CL,7 

; CL := amber of bits to shift left 

10? 

OL.OPPb 

; DL := unshifted bit task for rightiost 



; byte 

SIL 

DL.CL 

; DL i* bit usk for last byte 

; detenine byte offset of first 

and last pixel is the line 

MO? 



NO? 

BI,[L?LT1] 


MO? 

CL.ByteOffsetShift 

SIR 

U,CL 

; Hi* byte offset of t2 

SRR 

BZ.CL 

; BX := byte offset of xl 

MO? 

CI,U 


SOI 

CI,BI 

; CX := (tbytes in line) - 1 

; get graphics controller port address into DZ 

MO? 

IZ.DZ 

; II : : bit task for first byte 
; BL := bit Bask for last byte 

; tentative begin of 

loop save bi, cz,di,si 

HorixlineZ: POSH 

II 


POSH 

CX 


POSH 

DI 


POSH 

SI 


MO? 

DX.JCIh 

; DX := Graphics Controller Port 

MO? 

&L, 8 

; BL Bit Mask Register 

; sake video buffer 

addressable through DS:SI 

POSH 

DS 

; preserve DS 

POSH 

IS 


POP 

DS 


MO? 

81 ,DI 

; DS:SI -> video buffer 


; set pixels is lcftioit byte of the line 
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01 

11,11 


JS 

L43P ; jnip if byte aliped ( il is leftiost 



; piiel in byte 


01 

Cl.CZ 


JIZ 

L42P ; jnip if lore than one byte in the line 


UD 

11,11 ; IL := bit usk for 1st byte 


IMP 

S10RT L44P 

L42F: 

MOT 

11,11 ; update graphics controller 


OOT 

DI,1X ; IB bit msk for 1st byte 


KOTSS 

; npdate bit planes 


SEC 

Cl 

; use 

a fast 8084 lachine instruction to drat the reminder of the line 

L43F: 

POP 

DS ; MIRE D1T SEGKERT ADDRESSABLE 


MOT 

11,11111111b 


PD SB 

DS ; PHSERTE DS 


POSB 

ES ; M1EE T1DE0 BUFFER 1DDRESS&BLE TBRODGB DS:SI 


POP 

DS 


OOT 

SI, 11 


REP 

MOTSB ; Draw line a byte at a tine 

; set 

pixels in the 

rightiost byte of the line 

L44F: 

MOT 

1B,BL ; AB := bit usk for last byte 


OOT 

DI.ll ; update graphics controller 


MOTSB 

; update bit planes 


POP 

DS ; restore DS 


MOT 

CZ,[C001TER1] 


DEC 

Cl 


JZ 

L555 

; Move loop counter 

so it is presented 


MOT 

[COOITERILCZ 

; POP IIG18TB1S TUT HIE SITED 


POP 

SI 


POP 

DI 


POP 

Cl 


POP 

11 


; CI1I6I SUIT 1DDRESS TO HIT LIII 
ADD DI,BTTESPERLIIE 
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JV loriiliao2 ; uit mtktr put u lilt to fill 
; takfrrat color 


IS5S: 

pop ii 

top II 

pop a 

POP II 

POP II 

POP SI 

in 

Pillliiiot DIP 

con ms 

DO 


# 
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